urbit/pkg/arvo/ted/hi.hoon

/-  spider
/+  strandio
=,  strand=strand:spider
^-  thread:spider
|=  arg=vase
=/  m  (strand ,vase)
^-  form:m
=+  !<([~ arg=$@(who=ship [who=ship mez=tape])] arg)
=/  [who=ship message=@t]
  ?@(arg [who.arg ''] [who.arg (crip mez.arg)])
;<  ~  bind:m  (poke:strandio [who %hood] %helm-hi !>(message))
(pure:m !>("hi {<who>} successful"))
hi: make a thread so it works in sotot 2019-11-27 03:14:32 +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=$@(who=ship [who=ship mez=tape])] arg)`
			`=/ [who=ship message=@t]`
			`?@(arg [who.arg ''] [who.arg (crip mez.arg)])`
hi: make a thread so it works in sotot 2019-11-27 03:14:32 +03:00			`;< ~ bind:m (poke:strandio [who %hood] %helm-hi !>(message))`
			`(pure:m !>("hi {<who>} successful"))`