ilyakooo0/urbit
1
0
Fork 0
mirror of https://github.com/ilyakooo0/urbit.git synced 2024-12-01 11:33:41 +03:00
Code Issues Packages Projects Releases Wiki Activity

Type printing.

Browse Source
This commit is contained in:
C. Guy Yarvin 2013-12-02 17:47:56 -08:00
parent 18080fb306
commit 5c99c146a3
1 changed files with 20 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

20
main/bin/type.hoon Normal file
View File

@ -0,0 +1,20 @@
!:
:: /=main=/bin/type/hoon
::
|= *
|= ~
:- ~ :- ~
:- ^- (list slip)
:~ [~ %$ %noun]
==
|= [now=@da pax=path nut=note]
^- bowl
:_ ~
?+ -.nut !!
%$
?~ p.nut
~
%+ weld
(turn q.u.p.nut |=(a=* [%la (sell p.u.p.nut a)]))
`(list gift)`[[%la (skol p.u.p.nut)] ~]
==