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 bebe6a5d..6d3cf5b2 100644 --- a/src/interp/br-op1.boot +++ b/src/interp/br-op1.boot @@ -980,7 +980,7 @@ evalDomainOpPred(dom,pred) == process(dom,pred) where systemError nil convertCatArg p == atom p or #p = 1 => MKQ p - ['%listlit,MKQ first p,:[convertCatArg x for x in rest p]] + ['%list,MKQ first p,:[convertCatArg x for x in rest p]] evpred(dom,pred) == k := POSN1(pred,$predicateList) => testBitVector(dom.3,k + 1) evpred1(dom,pred) |