urbit/shrub
1
1
Fork 0
mirror of https://github.com/urbit/shrub.git synced 2025-01-05 19:46:50 +03:00
Code Issues Packages Projects Releases Wiki Activity

Worked around bizarre !: bug.

Browse Source
This commit is contained in:
C. Guy Yarvin 2014-05-25 21:32:37 -07:00
parent a30ebd2cd6
commit bf2535d0b3
1 changed files with 14 additions and 39 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

53
arvo/hoon.hoon
View File

@ -5442,7 +5442,7 @@
~(duck ut typ)
::
++ spat |=(pax=path (rap 3 (spud pax)))
++ spec !:
++ spec
|= vax=vase
^- vase
=. vax
@ -5456,10 +5456,6 @@
[%wtts ?^(-.q.vax [%axil %cell] [%leaf %$ -.q.vax]) [%$ 2]~]
[%$ 1]
::
++ spic
|= vax=vase
(slap vax [%$ 1])
::
++ spud |=(pax=path ~(ram re (dish:ut [~ %path] pax)))
++ slot
|= [axe=@ vax=vase] ^- vase
@ -8883,45 +8879,24 @@
|= wec=vase
^- move
:- ((hard duct) -.q.wec)
=+ caq=(slot 3 wec)
:: =+ caq=(spec (slot 3 wec))
?+ -.q.caq ~&(%sump-bad !!)
%call
:^ %call
(need ((sand %tas) ((hard ,@) +<.q.caq)))
((hard path) +>-.q.caq)
((hard curd) +>+.q.caq)
=+ caq=(spec (slot 3 wec))
?+ q.caq ~&(%sump-bad !!)
::
[%call p=@tas q=* r=[p=@tas q=*]]
:^ %call (need ((sand %tas) ((hard ,@) p.q.caq)))
((hard path) q.q.caq)
r.q.caq
:: (song (slot 15 caq))
::
%give
[%give ((hard curd) +.q.caq)]
[%give p=[p=@tas q=*]]
[%give p.q.caq]
::
%sick
[%sick ((hard curd) +.q.caq)]
[%sick p=[p=@tas q=*]]
[%sick p.q.caq]
::
%slip
:+ %slip
(need ((sand %tas) ((hard ,@) +<.q.caq)))
((hard curd) +>.q.caq)
[%slip p=@tas q=[p=@tas q=*]]
[%slip (need ((sand %tas) ((hard ,@) p.q.caq))) q.q.caq]
==
:: XX pattern matching crashes!!!!
:: ?+ q.caq ~&(%sump-bad !!)
:: ::
:: [%call p=@tas q=* r=[p=@tas q=*]]
:: :^ %call (need ((sand %tas) ((hard ,@) p.q.caq)))
:: ((hard path) q.q.caq)
:: r.q.caq
:: :: (song (slot 15 caq))
:: ::
:: [%give p=[p=@tas q=*]]
:: [%give p.q.caq]
:: ::
:: [%sick p=[p=@tas q=*]]
:: [%sick p.q.caq]
:: ::
:: [%slip p=@tas q=[p=@tas q=*]]
:: [%slip (need ((sand %tas) ((hard ,@) p.q.caq))) q.q.caq]
:: ==
::
++ said
|= vud=vase