mirror of
https://github.com/urbit/shrub.git
synced 2024-12-22 10:21:31 +03:00
24 lines
577 B
Plaintext
24 lines
577 B
Plaintext
|%
|
|
++ eval
|
|
|= [=bowl:gall =hoon]
|
|
^- (list tank)
|
|
=/ fowl=[our=@p now=@da eny=@uvJ]
|
|
:+ our.bowl
|
|
now.bowl
|
|
(shaz (cat 3 (mix [now eny]:bowl) %eny))
|
|
::
|
|
=/ subject [fowl ..zuse]
|
|
=/ minted=(each [=type =nock] (list tank))
|
|
%- mule |.
|
|
(~(mint ut -:!>(subject)) %noun hoon)
|
|
?: ?=(%| -.minted) p.minted
|
|
=/ =toon
|
|
(mock [subject nock.p.minted] |=(^ ~))
|
|
?- -.toon
|
|
%0 [(sell type.p.minted p.toon) ~]
|
|
%1 :- leaf+".^ unsupported in chat eval"
|
|
(turn ;;((list path) p.toon) smyt)
|
|
%2 [leaf+"crash!" p.toon]
|
|
==
|
|
--
|