shrub/pkg/arvo/mar/tang.hoon

23 lines
448 B
Plaintext
Raw Normal View History

2014-09-25 04:37:29 +04:00
::
2016-02-05 06:05:37 +03:00
:::: /hoon/tang/mar
2014-09-25 04:37:29 +04:00
::
2016-02-18 02:00:12 +03:00
/? 310
2016-11-17 04:42:58 +03:00
::
=, format
|_ tan/(list tank)
++ grad %noun
2015-02-06 08:00:35 +03:00
++ grow
|%
++ noun tan
2015-06-06 01:20:26 +03:00
++ elem
=- ;pre:code:"{(of-wall -)}"
2015-02-06 08:00:35 +03:00
^- wall %- zing ^- (list wall)
(turn (flop tan) |=(a=tank (wash 0^160 a)))
2015-02-06 08:00:35 +03:00
--
2014-09-25 04:37:29 +04:00
++ grab :: convert from
|%
++ noun (list ^tank) :: clam from %noun
++ tank |=(a=^tank [a]~)
2014-09-25 04:37:29 +04:00
--
--