From 819fbd2c9945c1e351bd8101fa991f6e8ae55ef9 Mon Sep 17 00:00:00 2001
From: Alex Shinn <ashinn@users.noreply.github.com>
Date: Thu, 25 Feb 2010 23:54:47 +0900
Subject: [PATCH] fixing bug in sorted?

---
 lib/srfi/95/sort.scm | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/lib/srfi/95/sort.scm b/lib/srfi/95/sort.scm
index 38273199..14e24517 100644
--- a/lib/srfi/95/sort.scm
+++ b/lib/srfi/95/sort.scm
@@ -27,7 +27,7 @@
            ((less (key (vector-ref seq (+ i 1))) (key (vector-ref seq i))) #f)
            (else (lp (+ i 1)))))))
      ((null? seq)
-      #f)
+      #t)
      (else
       (let lp ((ls1 seq) (ls2 (cdr seq)))
         (cond ((null? ls2) #t)