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

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