urbit/pkg/arvo/ted/build-cast.hoon
2020-04-18 04:21:15 -04:00

13 lines
297 B
Plaintext

/- spider
/+ strandio
=, strand=strand:spider
^- thread:spider
|= arg=vase
=/ m (strand ,vase)
^- form:m
=+ !<([a=mark b=mark ~] arg)
;< =bowl:spider bind:m get-bowl:strandio
=/ bek=beak [our q.byk da+now]:bowl
;< =tube:clay bind:m (build-cast:strandio bek a b)
(pure:m !>(tube))