urbit/pkg/arvo/ted/time.hoon

/-  spider
/+  strandio
=,  strand=strand:spider
^-  thread:spider
|=  arg=vase
=/  m  (strand ,vase)
^-  form:m
=+  !<([~ arg=@dr] arg)
;<  now-1=@da  bind:m  get-time:strandio
;<  ~          bind:m  (sleep:strandio arg)
;<  now-2=@da  bind:m  get-time:strandio
(pure:m !>(`@dr`(sub now-2 now-1)))
spider: rename thread -> strand, imp -> thread 2019-11-16 14:25:30 +03:00			`/- spider`
			`/+ strandio`
			`=, strand=strand:spider`
			`^- thread:spider`
			`\|= arg=vase`
			`=/ m (strand ,vase)`
			`^- form:m`
various: start threads with unit of tuple args Instead of a list of arguments, with trailing ~. 2020-12-02 01:38:02 +03:00			`=+ !<([~ arg=@dr] arg)`
spider: rename thread -> strand, imp -> thread 2019-11-16 14:25:30 +03:00			`;< now-1=@da bind:m get-time:strandio`
			`;< ~ bind:m (sleep:strandio arg)`
			`;< now-2=@da bind:m get-time:strandio`
			(pure:m !>(`@dr`(sub now-2 now-1)))