Fcalva/chibi-scheme
1
0
Fork 0
mirror of https://github.com/ashinn/chibi-scheme.git synced 2025-05-21 06:39:17 +02:00
Code Issues Projects Releases Packages Wiki Activity Actions

fixing bug in sorted?

Browse source
This commit is contained in:
Alex Shinn 2010-02-25 23:54:47 +09:00
parent b71195955e
commit 819fbd2c99
1 changed files with 1 additions and 1 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

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

@ -27,7 +27,7 @@
((less (key (vector-ref seq (+ i 1))) (key (vector-ref seq i))) #f) ((less (key (vector-ref seq (+ i 1))) (key (vector-ref seq i))) #f)
(else (lp (+ i 1))))))) (else (lp (+ i 1)))))))
((null? seq) ((null? seq)
#f) #t)
(else (else
(let lp ((ls1 seq) (ls2 (cdr seq))) (let lp ((ls1 seq) (ls2 (cdr seq)))
(cond ((null? ls2) #t) (cond ((null? ls2) #t)