~ chicken-core (chicken-5) 40eb909e54e7d9763548a27713617feeb85c799e

commit 40eb909e54e7d9763548a27713617feeb85c799e
Author:     felix <felix@call-with-current-continuation.org>
AuthorDate: Mon May 16 20:07:44 2011 +0200
Commit:     felix <felix@call-with-current-continuation.org>
CommitDate: Mon May 16 20:07:44 2011 +0200

    limit print-length for elements in described sequences

diff --git a/csi.scm b/csi.scm
index 6527e2d3..fec57a2b 100644
--- a/csi.scm
+++ b/csi.scm
@@ -583,7 +583,10 @@ EOF
 		   (let ((v (pref x (fx+ start i))))
 		     (let loop2 ((n 1) (j (fx+ i (fx+ start 1))))
 		       (cond ((fx>= j len)
-			      (fprintf out " ~S: ~S" i v)
+			      (##sys#with-print-length-limit
+			       1000
+			       (lambda ()
+				 (fprintf out " ~S: ~S" i v)))
 			      (if (fx> n 1)
 				  (fprintf out "\t(followed by ~A identical instance~a)~% ...~%" 
 					   (fx- n 1)