urbit/shrub
1
1
Fork 0
mirror of https://github.com/urbit/shrub.git synced 2024-12-21 01:41:37 +03:00
Code Issues Packages Projects Releases Wiki Activity

hoon: keep +fish:ar axis updated on recursion

Browse Source 
When we recur into a %cell or %over, we need to update the axis
appropriately.

Co-authored-by: joemfb <joemfb@users.noreply.github.com>
This commit is contained in:
fang 2022-07-01 18:09:10 +02:00
parent 3dfd8189bb
commit 6edaaec0b4
No known key found for this signature in database
GPG Key ID: EB035760C1BBA972
1 changed files with 3 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

6
pkg/arvo/sys/hoon.hoon
View File

@ -8832,8 +8832,8 @@
[%1 &]
[%3 %0 axis]
%+ flan
$(ref (peek(sut ref) %free 2), skin skin.skin)
$(ref (peek(sut ref) %free 3), skin ^skin.skin)
$(ref (peek(sut ref) %free 2), axis (peg axis 2), skin skin.skin)
$(ref (peek(sut ref) %free 3), axis (peg axis 3), skin ^skin.skin)
::
%leaf
?: (~(nest ut [%atom %$ `atom.skin]) | ref)
@ -8848,7 +8848,7 @@
~| %oops-guess-you-needed-feel-after-all
=+ fid=(find %read wing.skin)
?> &(?=(%& -.fid) ?=(%& -.q.p.fid))
[%7 [%0 (tend p.p.fid)] $(skin skin.skin, sut p.q.p.fid)]
$(sut p.q.p.fid, axis (peg axis (tend p.p.fid)), skin skin.skin)
%spec q:(~(mint ut ref) %noun [%fits ~(example ax spec.skin) [&+1 ~]])
%wash [%1 1] ::TODO shouldn't this always _match_?
==