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 943b7588..b75ac711 100644 --- a/src/interp/br-op1.boot +++ b/src/interp/br-op1.boot @@ -935,7 +935,7 @@ getDomainOpTable(dom,fromIfTrue,:options) == conname := first domname abb := getConstructorAbbreviation conname opAlist := getOperationAlistFromLisplib conname - "append"/[REMDUP [[op1,:fn] for [sig,slot,pred,key,:.] in u + "append"/[removeDuplicates [[op1,:fn] for [sig,slot,pred,key,:.] in u | key ~= 'Subsumed and ((null ops and (op1 := op)) or (op1 := memq(op,ops)))] for [op,:u] in opAlist] where memq(op,ops) == --dirty trick to get 0 and 1 instead of Zero and One |