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 a9bb318e..9c5a8bcd 100644 --- a/src/interp/lisplib.boot +++ b/src/interp/lisplib.boot @@ -175,7 +175,7 @@ orderByContainment pl == else if CONTAINED(x,max) then if null assoc(x,$predGensymAlist) then $predGensymAlist := [[x,:gensym()],:$predGensymAlist] if y then max := x - [max,:orderByContainment delete(max,pl)] + [max,:orderByContainment remove(pl,max)] buildBitTable(:l) == fn(reverse l,0) where fn(l,n) == null l => n |