shrub/pkg/arvo/mar/tang.hoon

22 lines
419 B
Plaintext
Raw Normal View History

2019-07-17 01:59:39 +03:00
::
:::: /hoon/tang/mar
::
/? 310
::
=, format
|_ tan/(list tank)
::
++ grow
|%
++ elem
=- ;pre:code:"{(of-wall -)}"
^- wall %- zing ^- (list wall)
(turn (flop tan) |=(a/tank (wash 0^160 a)))
--
++ grab :: convert from
|%
++ noun (list ^tank) :: clam from %noun
++ tank |=(a/^tank [a]~)
--
--