urbit/shrub
1
1
Fork 0
mirror of https://github.com/urbit/shrub.git synced 2025-01-07 05:26:56 +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) ~(duck ut typ)
:: ::
++ spat |=(pax=path (rap 3 (spud pax))) ++ spat |=(pax=path (rap 3 (spud pax)))
++ spec !: ++ spec
|= vax=vase |= vax=vase
^- vase ^- vase
=. vax =. vax
@ -5456,10 +5456,6 @@
[%wtts ?^(-.q.vax [%axil %cell] [%leaf %$ -.q.vax]) [%$ 2]~] [%wtts ?^(-.q.vax [%axil %cell] [%leaf %$ -.q.vax]) [%$ 2]~]
[%$ 1] [%$ 1]
:: ::
++ spic
|= vax=vase
(slap vax [%$ 1])
::
++ spud |=(pax=path ~(ram re (dish:ut [~ %path] pax))) ++ spud |=(pax=path ~(ram re (dish:ut [~ %path] pax)))
++ slot ++ slot
|= [axe=@ vax=vase] ^- vase |= [axe=@ vax=vase] ^- vase
@ -8883,45 +8879,24 @@
|= wec=vase |= wec=vase
^- move ^- move
:- ((hard duct) -.q.wec) :- ((hard duct) -.q.wec)
=+ caq=(slot 3 wec) =+ caq=(spec (slot 3 wec))
:: =+ caq=(spec (slot 3 wec)) ?+ q.caq ~&(%sump-bad !!)
?+ -.q.caq ~&(%sump-bad !!) ::
%call [%call p=@tas q=* r=[p=@tas q=*]]
:^ %call :^ %call (need ((sand %tas) ((hard ,@) p.q.caq)))
(need ((sand %tas) ((hard ,@) +<.q.caq))) ((hard path) q.q.caq)
((hard path) +>-.q.caq) r.q.caq
((hard curd) +>+.q.caq)
:: (song (slot 15 caq)) :: (song (slot 15 caq))
:: ::
%give [%give p=[p=@tas q=*]]
[%give ((hard curd) +.q.caq)] [%give p.q.caq]
:: ::
%sick [%sick p=[p=@tas q=*]]
[%sick ((hard curd) +.q.caq)] [%sick p.q.caq]
:: ::
%slip [%slip p=@tas q=[p=@tas q=*]]
:+ %slip [%slip (need ((sand %tas) ((hard ,@) p.q.caq))) q.q.caq]
(need ((sand %tas) ((hard ,@) +<.q.caq)))
((hard curd) +>.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 ++ said
|= vud=vase |= vud=vase