diff options
Diffstat (limited to 'src/interp/nrunfast.boot')
-rw-r--r-- | src/interp/nrunfast.boot | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/src/interp/nrunfast.boot b/src/interp/nrunfast.boot index fe17142e..3b6952f8 100644 --- a/src/interp/nrunfast.boot +++ b/src/interp/nrunfast.boot @@ -685,7 +685,7 @@ newHasTest(domform,catOrAtt) == -- on second thoughts we won't! categoryForm? domform => domform = catOrAtt => 'T - for [aCat,:cond] in [:ancestorsOf(domform,NIL),:SUBLISLIS (rest domform,$FormalMapVariableList,getConstructorAttributesFromDB(opOf domform))] | aCat = catOrAtt repeat + for [aCat,:cond] in [:ancestorsOf(domform,NIL),:applySubst(pairList($FormalMapVariableList,rest domform),getConstructorAttributesFromDB(opOf domform))] | aCat = catOrAtt repeat return evalCond cond where evalCond x == atom x => x |