~ chicken-core (chicken-5) 5e773da5cf912327437b219fa719d3bdb9a91c1e

commit 5e773da5cf912327437b219fa719d3bdb9a91c1e
Author:     felix <felix@call-with-current-continuation.org>
AuthorDate: Sat Jun 12 14:31:52 2010 +0200
Commit:     felix <felix@call-with-current-continuation.org>
CommitDate: Sat Jun 12 14:31:52 2010 +0200

    trivial change

diff --git a/csi.scm b/csi.scm
index e7ecd5d4..3cc9d0a1 100644
--- a/csi.scm
+++ b/csi.scm
@@ -544,7 +544,7 @@ EOF
 		     (loop-print (cdr x) (cons (car x) parsed)))
 		   (fprintf out " ~S (circle)~%" (car (memq (car x) parsed)))))]
 	    [(list? x) (descseq "list" length list-ref 0)]
-	    [(pair? x) (fprintf out "pair with car ~S and cdr ~S~%" (car x) (cdr x))]
+	    [(pair? x) (fprintf out "pair with car ~S~%and cdr ~S~%" (car x) (cdr x))]
 	    [(procedure? x)
 	     (let ([len (##sys#size x)])
 	       (if (and (> len 3)