urbit/shrub
1
1
Fork 0
mirror of https://github.com/urbit/shrub.git synced 2025-01-06 04:07:23 +03:00
Code Issues Packages Projects Releases Wiki Activity

More debug.

Browse Source
This commit is contained in:
C. Guy Yarvin 2013-12-29 01:14:11 -05:00
parent c599b27c65
commit 752e0cb8ca
1 changed files with 8 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

8
arvo/clay.hoon
View File

@ -197,6 +197,11 @@
++ eave :: subscribe ++ eave :: subscribe
|= [hen=duct rav=rave] |= [hen=duct rav=rave]
^+ +> ^+ +>
=+ ^= bug
?& ?=([[%c @ *] *] hen)
=('~nibbus-sivnex' i.t.i.hen)
==
~? bug [%eave rav]
?- -.rav ?- -.rav
& &
=+ ver=(aver p.rav) =+ ver=(aver p.rav)
@ -208,13 +213,16 @@
:: ::
| |
=+ 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)
~? bug [%eave-top top]
=+ seb=(slag (sub let.dom top) hit.dom) =+ seb=(slag (sub let.dom top) hit.dom)
=+ wid=(sub top u.nab) =+ wid=(sub top u.nab)
=+ fud=(flop (scag wid seb)) =+ fud=(flop (scag wid seb))