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 03429303..0a33b680 100644 --- a/src/interp/nrunfast.boot +++ b/src/interp/nrunfast.boot @@ -646,7 +646,7 @@ newHasTest(domform,catOrAtt) == evalCond x == ATOM x => x [pred,:l] := x - pred = 'has => + pred = "has" => l is [ w1,['ATTRIBUTE,w2]] => newHasTest(w1,w2) l is [ w1,['SIGNATURE,:w2]] => compiledLookup(CAR w2,CADR w2, eval mkEvalable w1) newHasTest(first l ,first rest l) |