diff options
Diffstat (limited to 'src/interp/br-op1.boot')
| -rw-r--r-- | src/interp/br-op1.boot | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/src/interp/br-op1.boot b/src/interp/br-op1.boot index c5d51419..9348194d 100644 --- a/src/interp/br-op1.boot +++ b/src/interp/br-op1.boot @@ -970,7 +970,7 @@ evalDomainOpPred(dom,pred) == process(dom,pred) where MEMQ(op,'(AND and)) => ['AND,:[convert(dom,x) for x in argl]] MEMQ(op,'(OR or)) => ['OR,:[convert(dom,x) for x in argl]] MEMQ(op,'(NOT not)) => ['NOT,convert(dom,first argl)] - op = 'has => + op = "has" => [arg,p] := argl p is ['ATTRIBUTE,a] => ['HasAttribute,arg,MKQ a] ['HasCategory,arg,convertCatArg p] |