added terrible hack to prevent dependency spin

(cherry picked from commit 5cf608b6ca7d8fdb0d9c348507e7b1089f2ffe6a)
This commit is contained in:
Anton Dyudin 2017-12-15 17:28:39 -08:00
parent fafb169508
commit 1990437558

View File

@ -1648,6 +1648,11 @@
%+ cope (load-arch cof bem)
|= {cof/cafe ark/arch}
?~ fil.ark (flaw cof leaf+"ford: no file {<(tope bem)>}" ~)
=; res
=. q.res ::XX prevent infinite dependency loop
?-(-.q.res $1 [!!], ?($0 $2) q.res(p ~))
res
::
|- ^- (bolt cage) ::TODO do this in clay
=/ bom bem(p.r (dec p.r.bem))
%+ cope (load-arch cof bom)