hoon: fix ket not working past tistar

This commit is contained in:
pkova 2020-03-09 17:40:51 +02:00
parent 65bcf85ab9
commit 0d079b537c
2 changed files with 4 additions and 2 deletions

View File

@ -1,3 +1,3 @@
version https://git-lfs.github.com/spec/v1
oid sha256:c15aaa6db3e320d075772dd9e2feac03c4343afa16a7717d68bda0098700a678
size 12899519
oid sha256:2431d828686d4e971f797f22b0475b23b7328c6143e637678407485a139d7450
size 12922832

View File

@ -9865,6 +9865,8 @@
next
?~ u.tyr
$(sut q.sut, lon [~ lon], p.heg +(p.heg))
?. =(0 p.heg)
next(p.heg (dec p.heg))
=+ tor=(fund way u.u.tyr)
?- -.tor
%& [%& (weld p.p.tor `vein`[~ `axe lon]) q.p.tor]