From 2cb9d2237ffc3ef9897692888a77b41ec7108a27 Mon Sep 17 00:00:00 2001 From: Alex Shinn Date: Sun, 12 May 2013 10:31:30 +0900 Subject: [PATCH] Better error message for invalid args to sorted?. --- 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 6122ebf9..3b15a791 100644 --- a/lib/srfi/95/sort.scm +++ b/lib/srfi/95/sort.scm @@ -30,11 +30,13 @@ (else (lp (+ i 1))))))) ((null? seq) #t) - (else + ((pair? seq) (let lp ((ls1 seq) (ls2 (cdr seq))) (cond ((null? ls2) #t) ((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) (let ((key (if (pair? o) (car o) (lambda (x) x))))