diff options
| author | dos-reis <gdr@axiomatics.org> | 2011-05-17 22:31:54 +0000 |
|---|---|---|
| committer | dos-reis <gdr@axiomatics.org> | 2011-05-17 22:31:54 +0000 |
| commit | 24d0e78582cacadeb56a0e0efdd41ce5ff3a9354 (patch) | |
| tree | 7951b428f5aad10c800f7cc6b106e3a6ca4c3175 /src/interp/g-util.boot | |
| parent | 16106617d450060382974643a59ecd481efe5bca (diff) | |
| download | open-axiom-24d0e78582cacadeb56a0e0efdd41ce5ff3a9354.tar.gz | |
more cleanup
Diffstat (limited to 'src/interp/g-util.boot')
| -rw-r--r-- | src/interp/g-util.boot | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/src/interp/g-util.boot b/src/interp/g-util.boot index 2bd68b4a..4b912926 100644 --- a/src/interp/g-util.boot +++ b/src/interp/g-util.boot @@ -632,7 +632,7 @@ mergeSort(f,g,p,n) == p := rest p p.rest := t t.rest := nil - if QSLESSP(n,3) then return p + if n < 3 then return p -- split the list p into p and q of equal length l := n quo 2 t := p |