shrub/main/bin/type.hoon

21 lines
303 B
Plaintext
Raw Normal View History

2013-12-03 05:47:56 +04:00
!:
:: /=main=/bin/type/hoon
::
|= *
|= ~
:- ~ :- ~
:- ^- (list slip)
:~ [~ %$ %noun]
==
|= [now=@da pax=path nut=note]
^- bowl
:_ ~
?+ -.nut !!
%$
?~ p.nut
2013-12-03 05:47:56 +04:00
~
%+ weld
(turn q.u.p.nut |=(a=* [%la (sell p.u.p.nut a)]))
`(list gift)`[[%la (skol p.u.p.nut)] ~]
==