diff options
| author | dos-reis <gdr@axiomatics.org> | 2010-05-09 22:45:25 +0000 |
|---|---|---|
| committer | dos-reis <gdr@axiomatics.org> | 2010-05-09 22:45:25 +0000 |
| commit | d1ae1fd7646c2b81c3d23752f6956c7db888e916 (patch) | |
| tree | 8efa5738e30f54559a22950f8b4c3dc33ab4c284 /src/interp/g-util.boot | |
| parent | f42883e3da3524177b4a8c6f42c8e7b1646a6265 (diff) | |
| download | open-axiom-d1ae1fd7646c2b81c3d23752f6956c7db888e916.tar.gz | |
More cleanups
Diffstat (limited to 'src/interp/g-util.boot')
| -rw-r--r-- | src/interp/g-util.boot | 4 |
1 files changed, 2 insertions, 2 deletions
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) |