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

Some debugging traps.

Browse Source
This commit is contained in:
C. Guy Yarvin 2013-12-27 15:49:37 -05:00
parent 880f0a64a5
commit 2722cee95b
1 changed files with 6 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

7
arvo/clay.hoon
View File

@ -196,7 +196,9 @@
::
++ eave :: subscribe
|= [hen=duct rav=rave]
^+ +>
^+ +>
=+ bug=&(?=([[%c ~] [%c * *] *] hen) =('~nibweg-sivnex' i.t.i.t.hen))
~? bug [%eave rav]
?- -.rav
&
=+ ver=(aver p.rav)
@ -208,10 +210,12 @@
::
|
=+ nab=(~(aeon ze lim dom) p.p.rav)
~? bug [%eave-nab nab]
?~ nab
?> =(~ (~(aeon ze lim dom) q.p.rav))
(duce hen rav)
=+ huy=(~(aeon ze lim dom) q.p.rav)
~? bug [%eave-huy huy]
?: &(?=(^ huy) |((lth u.huy u.nab) &(=(0 u.huy) =(0 u.nab))))
(blob hen)
=+ top=?~(huy let.dom u.huy)
@ -432,6 +436,7 @@
?> ?=(^ wru)
?> ?=(%re q.fav)
=+ ryf=((hard riff) s.fav)
~? =(~nibweg-sivnex p.fav) [%nibweg-sivnex %wart ryf]
:_ ..^$
:~ :+ [~ %iron q.u.wru]
[/c [%c (scot %p p.fav) r.fav] hen]