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
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
[ankh(fil `[lobe.i.cans cage.i.cans]) ford-cache.ford-args]
=. ankh new-ankh