shrub/main/bin/set.hoon
2013-09-28 13:21:18 -07:00

23 lines
308 B
Plaintext

!:
:: /=main=/bin/set/hoon
::
|= *
|= [nam=@tas ~]
=+ ^= rod ^- (list slip)
:~ [~ %$ %noun]
==
:- ~ :- ~
:- rod
|= [now=@da pax=path nut=note]
^- bowl
?> ?=(%$ -.nut)
?~ p.nut
:_ ~
:~ [%va nam ~]
==
?~ q.u.p.nut
[~ ~ rod ..$]
:_ ~
:~ [%va nam ~ p.u.p.nut -.q.u.p.nut]
==