clay: recurse properly

This commit is contained in:
Philip Monk 2020-04-28 20:33:12 -07:00
parent 7133e50ef3
commit c5d7473cf7
No known key found for this signature in database
GPG Key ID: B66E1F02604E44EC

View File

@ -3698,7 +3698,7 @@
path.i.cans t.path.i.cans path.i.cans t.path.i.cans
ankh (~(gut by dir.ankh) i.path.i.cans *^ankh) ankh (~(gut by dir.ankh) i.path.i.cans *^ankh)
== ==
:- child-ankh(dir (~(put by dir.ankh) i.path.i.cans child-ankh)) :- ankh(dir (~(put by dir.ankh) i.path.i.cans child-ankh))
ford-cache.ford-args ford-cache.ford-args
[ankh(fil `[lobe.i.cans cage.i.cans]) ford-cache.ford-args] [ankh(fil `[lobe.i.cans cage.i.cans]) ford-cache.ford-args]
=. ankh new-ankh =. ankh new-ankh