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

fix jet discrepancies in ++fond

Browse Source
This commit is contained in:
Paul Driver 2017-12-18 18:18:06 -08:00 committed by C. Guy Yarvin
parent 15e824da0b
commit 1fba410c4b
1 changed files with 3 additions and 6 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

9
sys/hoon.hoon
View File

@ -8798,19 +8798,18 @@
[(fork p.q.p.p.hax p.q.p.p.yor ~) q.q.p.p.hax]
?> ?=($& -.yor)
?> =(p.q.p.hax p.q.p.yor)
:^ %&
(join p.p.hax p.p.yor)
p.q.p.hax
?: &(?=($& -.q.q.p.hax) ?=($& -.q.q.p.yor))
:^ %& (join p.p.hax p.p.yor) p.q.p.hax
[%& (fork p.q.q.p.hax p.q.q.p.yor ~)]
?> &(?=($| -.q.q.p.hax) ?=($| -.q.q.p.yor))
?> =(p.q.q.p.hax p.q.q.p.yor)
=+ wal=(~(uni in q.q.q.p.hax) q.q.q.p.yor)
:^ %& ~ p.q.p.hax
[%| p.q.q.p.hax wal]
++ $
^- pony
?- sut
$void stop
$void ~
$noun stop
{$atom *} stop
{$cell *}
@ -8854,8 +8853,6 @@
next
?~ q.u.tyr
$(sut q.sut, lon [~ lon], p.heg +(p.heg))
?. =(0 p.heg)
next(p.heg (dec p.heg))
=+ tor=(fund way u.q.u.tyr)
?- -.tor
$& [%& ~ (weld p.p.tor `vein`[~ `axe lon]) q.p.tor]