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

Better error message for invalid args to sorted?.

Browse source
This commit is contained in:
Alex Shinn 2013-05-12 10:31:30 +09:00
parent 74775675fc
commit 2cb9d2237f
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

@ -30,11 +30,13 @@
(else (lp (+ i 1))))))) (else (lp (+ i 1)))))))
((null? seq) ((null? seq)
#t) #t)
(else ((pair? seq)
(let lp ((ls1 seq) (ls2 (cdr seq))) (let lp ((ls1 seq) (ls2 (cdr seq)))
(cond ((null? ls2) #t) (cond ((null? ls2) #t)
((less (key (car ls2)) (key (car ls1))) #f) ((less (key (car ls2)) (key (car ls1))) #f)
(else (lp ls2 (cdr ls2))))))))) (else (lp ls2 (cdr ls2))))))
(else
(error "sorted?: not a list or vector" seq)))))
(define (merge! ls1 ls2 less . o) (define (merge! ls1 ls2 less . o)
(let ((key (if (pair? o) (car o) (lambda (x) x)))) (let ((key (if (pair? o) (car o) (lambda (x) x))))