urbit/shrub
1
1
Fork 0
mirror of https://github.com/urbit/shrub.git synced 2024-12-13 06:25:09 +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 ++ eave :: subscribe
|= [hen=duct rav=rave] |= [hen=duct rav=rave]
^+ +> ^+ +>
=+ bug=&(?=([[%c ~] [%c * *] *] hen) =('~nibweg-sivnex' i.t.i.t.hen))
~? bug [%eave rav]
?- -.rav ?- -.rav
& &
=+ ver=(aver p.rav) =+ ver=(aver p.rav)
@ -208,10 +210,12 @@
:: ::
| |
=+ nab=(~(aeon ze lim dom) p.p.rav) =+ nab=(~(aeon ze lim dom) p.p.rav)
~? bug [%eave-nab nab]
?~ nab ?~ nab
?> =(~ (~(aeon ze lim dom) q.p.rav)) ?> =(~ (~(aeon ze lim dom) q.p.rav))
(duce hen rav) (duce hen rav)
=+ huy=(~(aeon ze lim dom) q.p.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)))) ?: &(?=(^ huy) |((lth u.huy u.nab) &(=(0 u.huy) =(0 u.nab))))
(blob hen) (blob hen)
=+ top=?~(huy let.dom u.huy) =+ top=?~(huy let.dom u.huy)
@ -432,6 +436,7 @@
?> ?=(^ wru) ?> ?=(^ wru)
?> ?=(%re q.fav) ?> ?=(%re q.fav)
=+ ryf=((hard riff) s.fav) =+ ryf=((hard riff) s.fav)
~? =(~nibweg-sivnex p.fav) [%nibweg-sivnex %wart ryf]
:_ ..^$ :_ ..^$
:~ :+ [~ %iron q.u.wru] :~ :+ [~ %iron q.u.wru]
[/c [%c (scot %p p.fav) r.fav] hen] [/c [%c (scot %p p.fav) r.fav] hen]