urbit/pkg/arvo/ted/ph/hi-az.hoon

/-  spider
/+  *ph-io
=,  strand=strand:spider
^-  thread:spider
|=  vase
=/  m  (strand ,vase)
;<  az=tid:spider
  bind:m  start-azimuth
;<  ~  bind:m  (spawn az ~bud)
;<  ~  bind:m  (spawn az ~dev)
;<  ~  bind:m  (real-ship az ~bud)
;<  ~  bind:m  (real-ship az ~dev)
;<  ~  bind:m  (send-hi ~bud ~dev)
;<  ~  bind:m  end-azimuth
(pure:m *vase)
ph: port all azimuth tests to imps 2019-10-02 06:25:19 +03:00			`/- spider`
ph: reduce ph-io boilerplate 2019-10-02 06:39:49 +03:00			`/+ *ph-io`
spider: rename thread -> strand, imp -> thread 2019-11-16 14:25:30 +03:00			`=, strand=strand:spider`
			`^- thread:spider`
spider: don't pass in initial bowl 2019-11-16 04:37:20 +03:00			`\|= vase`
spider: rename thread -> strand, imp -> thread 2019-11-16 14:25:30 +03:00			`=/ m (strand ,vase)`
ph: add alef tests 2019-11-20 01:09:53 +03:00			`;< az=tid:spider`
			`bind:m start-azimuth`
			`;< ~ bind:m (spawn az ~bud)`
			`;< ~ bind:m (spawn az ~dev)`
			`;< ~ bind:m (real-ship az ~bud)`
			`;< ~ bind:m (real-ship az ~dev)`
			`;< ~ bind:m (send-hi ~bud ~dev)`
			`;< ~ bind:m end-azimuth`
spider: allow arguments and return values 2019-11-10 06:09:02 +03:00			`(pure:m *vase)`