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

Some debugging improvements.

Browse Source
This commit is contained in:
C. Guy Yarvin 2014-08-05 15:30:08 -07:00
parent 9b880d9b7c
commit a37bad2337
2 changed files with 7 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

8
arvo/ford.hoon
View File

@ -209,9 +209,13 @@
|= kus=(unit silk) |= kus=(unit silk)
^+ +> ^+ +>
?~ kus ?~ kus
=+ nym=(~(get by dym.bay) hen)
?~ nym :: XX should never
~& [%ford-mystery hen]
+>.$
=+ num=(need (~(get by dym.bay) hen)) =+ num=(need (~(get by dym.bay) hen))
=+ tas=(need (~(get by q.tad.bay) num)) =+ tas=(need (~(get by q.tad.bay) u.nym))
amok:~(camo zo [num tas]) amok:~(camo zo [u.nym tas])
=+ num=p.tad.bay =+ num=p.tad.bay
?> !(~(has by dym.bay) hen) ?> !(~(has by dym.bay) hen)
=: p.tad.bay +(p.tad.bay) =: p.tad.bay +(p.tad.bay)

2
arvo/hoon.hoon
View File

@ -9889,7 +9889,7 @@
%pass %pass
~? &(!lac !=(%$ p.gum)) ~? &(!lac !=(%$ p.gum))
:^ %pass [p.gum p.q.r.gum] :^ %pass [p.gum p.q.r.gum]
[(,@tas -.q.gum) p.r.gum] [(,@tas +>-.q.q.r.gum) p.r.gum]
q.gum q.gum
[p.q.r.gum ~ [[p.gum p.r.gum] q.gum] q.q.r.gum] [p.q.r.gum ~ [[p.gum p.r.gum] q.gum] q.q.r.gum]
:: ::