~ chicken-core (chicken-5) b665092d6fa96375da66aed5df1d39c424f626b9

commit b665092d6fa96375da66aed5df1d39c424f626b9
Author:     felix <felix@call-with-current-continuation.org>
AuthorDate: Mon Mar 1 01:40:05 2010 +0100
Commit:     felix <felix@call-with-current-continuation.org>
CommitDate: Mon Mar 1 01:40:05 2010 +0100

    restrict max size of chicken-status output lines

diff --git a/chicken-status.scm b/chicken-status.scm
index 94bd31f1..da363bf8 100644
--- a/chicken-status.scm
+++ b/chicken-status.scm
@@ -53,7 +53,9 @@
 	(let ((cop (current-output-port)))
 	  (if (terminal-port? cop)
 	      (let ((w (nth-value 1 (terminal-size cop))))
-		(if (zero? w) default-width w))
+		(if (zero? w) 
+		    default-width 
+		    (min default-width w)))
 	      default-width)))))
 
   (define (list-installed-eggs eggs)