urbit/shrub
1
1
Fork 0
mirror of https://github.com/urbit/shrub.git synced 2024-11-28 13:54:20 +03:00
Code Issues Packages Projects Releases Wiki Activity

fix jael +vent-pass recursion

Browse Source
This commit is contained in:
Ted Blackman 2019-07-11 14:41:43 -07:00
parent b0c4d82b6d
commit 86705ca446
1 changed files with 11 additions and 9 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

20
pkg/arvo/sys/vane/jael.hoon
View File

@ -1153,15 +1153,17 @@
=+ yez=~(tap in yen)
|- ^+ ..vent-pass
?~ yez ..vent-pass
=* d i.yez
?> ?=([[%a @ @ *] *] d)
=+ our=(slav %p i.t.i.d)
=+ who=(slav %p i.t.t.i.d)
%+ exec [d ~ ~]
:+ %pass
/(scot %p our)/vent-result
^- note
[%a %want who /j/(scot %p our)/vent-result %vent-result res]
=. ..vent-pass
=* d i.yez
?> ?=([[%a @ @ *] *] d)
=+ our=(slav %p i.t.i.d)
=+ who=(slav %p i.t.t.i.d)
%+ exec [d ~ ~]
:+ %pass
/(scot %p our)/vent-result
^- note
[%a %want who /j/(scot %p our)/vent-result %vent-result res]
$(yez t.yez)
::
++ extract-snap :: extract rewind point
^- snapshot