From d1ae1fd7646c2b81c3d23752f6956c7db888e916 Mon Sep 17 00:00:00 2001 From: dos-reis Date: Sun, 9 May 2010 22:45:25 +0000 Subject: More cleanups --- src/interp/g-util.boot | 4 ++-- 1 file changed, 2 insertions(+), 2 deletions(-) (limited to 'src/interp/g-util.boot') diff --git a/src/interp/g-util.boot b/src/interp/g-util.boot index f2ddb1b8..fbbab606 100644 --- a/src/interp/g-util.boot +++ b/src/interp/g-util.boot @@ -554,10 +554,10 @@ update() == listSort(pred,list,:optional) == NOT functionp pred => error "listSort: first arg must be a function" NOT LISTP list => error "listSort: second argument must be a list" - null optional => mergeSort(pred,function Identity,list,LENGTH list) + null optional => mergeSort(pred,function Identity,list,# list) key := first optional NOT functionp key => error "listSort: last arg must be a function" - mergeSort(pred,key,list,LENGTH list) + mergeSort(pred,key,list,# list) -- non-destructive merge sort using NOT GGREATERP as predicate MSORT list == listSort(function GLESSEQP, COPY_-LIST list) -- cgit v1.2.3