Reverting previous sorted? change.

This commit is contained in:
Alex Shinn 2013-05-11 13:02:30 +09:00
parent 5db2afb02d
commit 908be71b17

View file

@ -24,8 +24,8 @@
(let lp ((i 0)) (let lp ((i 0))
(cond (cond
((>= i len) #t) ((>= i len) #t)
((not (less (key (vector-ref seq i)) ((less (key (vector-ref seq (+ i 1)))
(key (vector-ref seq (+ i 1))))) (key (vector-ref seq i)))
#f) #f)
(else (lp (+ i 1))))))) (else (lp (+ i 1)))))))
((null? seq) ((null? seq)
@ -33,7 +33,7 @@
(else (else
(let lp ((ls1 seq) (ls2 (cdr seq))) (let lp ((ls1 seq) (ls2 (cdr seq)))
(cond ((null? ls2) #t) (cond ((null? ls2) #t)
((not (less (key (car ls1)) (key (car ls2)))) #f) ((less (key (car ls2)) (key (car ls1))) #f)
(else (lp ls2 (cdr ls2))))))))) (else (lp ls2 (cdr ls2)))))))))
(define (merge! ls1 ls2 less . o) (define (merge! ls1 ls2 less . o)