diff options
Diffstat (limited to 'src/interp/nrunfast.boot')
-rw-r--r-- | src/interp/nrunfast.boot | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/src/interp/nrunfast.boot b/src/interp/nrunfast.boot index 5ade3ee7..9a09fce0 100644 --- a/src/interp/nrunfast.boot +++ b/src/interp/nrunfast.boot @@ -653,8 +653,8 @@ newHasTest(domform,catOrAtt) == l is [ w1,['ATTRIBUTE,w2]] => newHasTest(w1,w2) l is [ w1,['SIGNATURE,:w2]] => compiledLookup(first w2,second w2, eval mkEvalable w1) newHasTest(first l ,second l) - pred = 'OR => or/[evalCond i for i in l] - pred = 'AND => and/[evalCond i for i in l] + pred in '(OR or %or) => or/[evalCond i for i in l] + pred in '(AND and %and) => and/[evalCond i for i in l] x null isAtom and constructor? op => domain := eval mkEvalable domform |