~ chicken-core (chicken-5) d6eea6fed45fe378d42d041aeb8e3f816fcda05e

commit d6eea6fed45fe378d42d041aeb8e3f816fcda05e
Author:     felix <felix@call-with-current-continuation.org>
AuthorDate: Wed Feb 17 09:04:48 2010 +0100
Commit:     felix <felix@call-with-current-continuation.org>
CommitDate: Wed Feb 17 09:04:48 2010 +0100

    trivial whitespace in ,r

diff --git a/csi.scm b/csi.scm
index 9fc0d55e..d2af053e 100644
--- a/csi.scm
+++ b/csi.scm
@@ -392,7 +392,7 @@ EOF
 	  (let ([sinfo (##sys#symbol-table-info)]
 		[minfo (memory-statistics)] )
 	    (define (shorten n) (/ (truncate (* n 100)) 100))
-	    (printf "Features:")
+	    (printf "Features:\n")
 	    (for-each
 	     (lambda (lst) 
 	       (display "\n  ")
@@ -401,7 +401,7 @@ EOF
 		  (printf "~a~a" f (make-string (fxmax 1 (fx- 16 (string-length f))) #\space)) )
 		lst) )
 	     (chop (sort (map keyword->string ##sys#features) string<?) 5))
-	    (printf "~%~
+	    (printf "~%~%~
                    Machine type:    \t~A ~A~%~
                    Software type:   \t~A~%~
                    Software version:\t~A~%~