urbit/ares
1
1
Fork 0
mirror of https://github.com/urbit/ares.git synced 2024-11-25 05:03:19 +03:00
Code Issues Packages Projects Releases Wiki Activity

line: respect %both needs of immediates (via +kerf)

Browse Source
This commit is contained in:
Joe Bryan 2024-08-14 13:38:11 -04:00
parent 34b473f126
commit 5eca82a956
1 changed files with 3 additions and 6 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

9
hoon/codegen/lib/line.hoon
View File

@ -1022,12 +1022,9 @@
$(todo [pole todo], tack t.tack) $(todo [pole todo], tack t.tack)
:: ::
%both %both
%= $ =^ [y=@uwoo r=@uvre] gen (kerf [%next ne u])
tack =/ =pole ?~(no [%poi r] [%imm u.no r])
?: ?=(?(~ [~ @]) no) $(u y, todo [pole todo], tack t.tack)
[[~ rite.ne] [~ left.ne] t.tack]
[[`+.u.no rite.ne] [`-.u.no left.ne] t.tack]
==
:: ::
%none $(tack t.tack) %none $(tack t.tack)
== ==