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

/-  spider
/+  *ph-io
=,  thread=thread:spider
^-  imp:spider
|=  =bowl:mall
=/  m  (thread ,~)
;<  ~  bind:m  start-azimuth
;<  ~  bind:m  (spawn ~bud)
;<  ~  bind:m  (spawn ~dev)
;<  ~  bind:m  (real-ship ~bud)
;<  ~  bind:m  (real-ship ~dev)
;<  ~  bind:m  (send-hi ~bud ~dev)
;<  ~  bind:m  end-azimuth
(pure:m ~)
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`
ph: port all azimuth tests to imps 2019-10-02 06:25:19 +03:00			`=, thread=thread:spider`
			`^- imp:spider`
			`\|= =bowl:mall`
			`=/ m (thread ,~)`
ph: reduce ph-io boilerplate 2019-10-02 06:39:49 +03:00			`;< ~ bind:m start-azimuth`
			`;< ~ bind:m (spawn ~bud)`
			`;< ~ bind:m (spawn ~dev)`
			`;< ~ bind:m (real-ship ~bud)`
			`;< ~ bind:m (real-ship ~dev)`
			`;< ~ bind:m (send-hi ~bud ~dev)`
			`;< ~ bind:m end-azimuth`
ph: port all azimuth tests to imps 2019-10-02 06:25:19 +03:00			`(pure:m ~)`