ilyakooo0/urbit
1
0
Fork 0
mirror of https://github.com/ilyakooo0/urbit.git synced 2024-11-13 08:38:43 +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) =+ yez=~(tap in yen)
|- ^+ ..vent-pass |- ^+ ..vent-pass
?~ yez ..vent-pass ?~ yez ..vent-pass
=* d i.yez =. ..vent-pass
?> ?=([[%a @ @ *] *] d) =* d i.yez
=+ our=(slav %p i.t.i.d) ?> ?=([[%a @ @ *] *] d)
=+ who=(slav %p i.t.t.i.d) =+ our=(slav %p i.t.i.d)
%+ exec [d ~ ~] =+ who=(slav %p i.t.t.i.d)
:+ %pass %+ exec [d ~ ~]
/(scot %p our)/vent-result :+ %pass
^- note /(scot %p our)/vent-result
[%a %want who /j/(scot %p our)/vent-result %vent-result res] ^- note
[%a %want who /j/(scot %p our)/vent-result %vent-result res]
$(yez t.yez)
:: ::
++ extract-snap :: extract rewind point ++ extract-snap :: extract rewind point
^- snapshot ^- snapshot