diff options
Diffstat (limited to 'src/interp/lisplib.boot')
-rw-r--r-- | src/interp/lisplib.boot | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/src/interp/lisplib.boot b/src/interp/lisplib.boot index beebddb8..49fa50cf 100644 --- a/src/interp/lisplib.boot +++ b/src/interp/lisplib.boot @@ -72,7 +72,7 @@ predicateBitIndex(x,e) == pn(x,flag,e) == u := simpBool transHasCode(x,e) u is 'T => 0 - u = nil => -1 + u is false => -1 p := valuePosition(u,$NRTslot1PredicateList) => p + 1 not flag => pn(predicateBitIndexRemop x,true,e) systemError nil |