From 7a08f86b3d118f1bc6845ecdaac4dab5f61b7869 Mon Sep 17 00:00:00 2001 From: Alex Shinn Date: Sat, 11 May 2013 12:41:51 +0900 Subject: [PATCH] sorted? should support <= --- lib/srfi/95/sort.scm | 6 ++++-- 1 file changed, 4 insertions(+), 2 deletions(-) diff --git a/lib/srfi/95/sort.scm b/lib/srfi/95/sort.scm index 14e24517..30a5c172 100644 --- a/lib/srfi/95/sort.scm +++ b/lib/srfi/95/sort.scm @@ -24,14 +24,16 @@ (let lp ((i 0)) (cond ((>= i len) #t) - ((less (key (vector-ref seq (+ i 1))) (key (vector-ref seq i))) #f) + ((not (less (key (vector-ref seq i)) + (key (vector-ref seq (+ i 1))))) + #f) (else (lp (+ i 1))))))) ((null? seq) #t) (else (let lp ((ls1 seq) (ls2 (cdr seq))) (cond ((null? ls2) #t) - ((less (key (car ls2)) (key (car ls1))) #f) + ((not (less (key (car ls1)) (key (car ls2)))) #f) (else (lp ls2 (cdr ls2))))))))) (define (merge! ls1 ls2 less . o)