~ chicken-core (master) b81967253e0d7582b19e8ba9c9e1bbee247ad0be

commit b81967253e0d7582b19e8ba9c9e1bbee247ad0be
Author:     felix <felix@call-with-current-continuation.org>
AuthorDate: Mon Aug 24 20:05:18 2026 +0200
Commit:     felix <felix@call-with-current-continuation.org>
CommitDate: Mon Aug 24 20:05:18 2026 +0200

    csi: resurrect use of print length limitation

diff --git a/csi.scm b/csi.scm
index cac938da..46852dea 100644
--- a/csi.scm
+++ b/csi.scm
@@ -84,7 +84,8 @@ EOF
 
 (set! ##sys#repl-print-hook
    (lambda (o p)
-     (write/labels o p)
+     (##sys#with-print-length-limit ##sys#repl-print-length-limit 
+       (lambda () (write/labels o p)))
      (newline)))
 
 (define editor-command (make-parameter #f))