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 7291dd8a..16c769a7 100644 --- a/src/interp/br-op1.boot +++ b/src/interp/br-op1.boot @@ -737,7 +737,7 @@ reduceOpAlistForDomain(opAlist,domform,conform) == pair.rest := [test for item in rest pair | test] where test() == [head,:tail] := item first tail = true => item - pred := simpHasPred SUBLISLIS(form1,form2,QCAR tail) + pred := simpHasPred SUBLISLIS(form1,form2,first tail) null pred => false item.rest := [pred] item |