shrub/main/bin/set.hoon

23 lines
308 B
Plaintext
Raw Normal View History

2013-09-29 00:21:18 +04:00
!:
:: /=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]
==