~ chicken-core (chicken-5) 3c843e18d5a5fd73231f8faeb88f0cfed8aefd96

commit 3c843e18d5a5fd73231f8faeb88f0cfed8aefd96
Author:     felix <felix@call-with-current-continuation.org>
AuthorDate: Sat Jan 24 12:51:20 2015 +0100
Commit:     felix <felix@call-with-current-continuation.org>
CommitDate: Sat Jan 24 12:51:20 2015 +0100

    Removed use of not-pair? from data-structures.scm

diff --git a/data-structures.scm b/data-structures.scm
index 6c554386..bce7fdfc 100644
--- a/data-structures.scm
+++ b/data-structures.scm
@@ -90,7 +90,7 @@
   (lambda (lst)
     (let loop ([lst lst])
       (cond [(null? lst) #t]
-	    [(not-pair? lst) #f]
+	    [(not (pair? lst)) #f]
 	    [(pred (##sys#slot lst 0)) (loop (##sys#slot lst 1))]
 	    [else #f] ) ) ) )