Fcalva/chibi-scheme
1
0
Fork 0
mirror of https://github.com/ashinn/chibi-scheme.git synced 2025-07-03 11:16:36 +02:00
Code Issues Projects Releases Packages Wiki Activity Actions 1

sorted? should support <=

Browse source
This commit is contained in:
Alex Shinn 2013-05-11 12:41:51 +09:00
parent 13f9d0f8d0
commit 7a08f86b3d
1 changed files with 4 additions and 2 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

6
lib/srfi/95/sort.scm
View file

@ -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)