urbit/shrub
1
1
Fork 0
mirror of https://github.com/urbit/shrub.git synced 2024-12-13 16:03:36 +03:00
Code Issues Packages Projects Releases Wiki Activity

Debugging stash.

Browse Source
This commit is contained in:
C. Guy Yarvin 2014-09-15 16:56:37 -07:00
parent 5477531755
commit c5a2f469bc
1 changed files with 0 additions and 4 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
arvo/hoon.hoon
View File

@ -2502,9 +2502,7 @@
[zac [~ i.q.tub [zac t.q.tub]]] [zac [~ i.q.tub [zac t.q.tub]]]
:: ::
++ sear :: conditional cook ++ sear :: conditional cook
~/ %sear
|* [pyq=_|=(* *(unit)) sef=_rule] |* [pyq=_|=(* *(unit)) sef=_rule]
~/ %fun
|= tub=nail |= tub=nail
=+ vex=(sef tub) =+ vex=(sef tub)
?~ q.vex ?~ q.vex
@ -2601,9 +2599,7 @@
[(last p.vex p.wag) [~ (raq p.u.q.vex p.u.q.wag) q.u.q.wag]] [(last p.vex p.wag) [~ (raq p.u.q.vex p.u.q.wag) q.u.q.wag]]
:: ::
++ stun :: parse several times ++ stun :: parse several times
~/ %stun
|* [[les=@ mos=@] fel=_rule] |* [[les=@ mos=@] fel=_rule]
~/ %fun
|= tub=nail |= tub=nail
^- (like (list ,_(wonk (fel)))) ^- (like (list ,_(wonk (fel))))
?: =(0 mos) ?: =(0 mos)