~ chicken-core (chicken-5) ead2c9745d934397d87e8f5cd56e8b2e11c3994f

commit ead2c9745d934397d87e8f5cd56e8b2e11c3994f
Author:     felix <felix@call-with-current-continuation.org>
AuthorDate: Fri Jun 11 14:22:42 2010 +0200
Commit:     felix <felix@call-with-current-continuation.org>
CommitDate: Fri Jun 11 14:22:42 2010 +0200

    repl shows number of values when more than 1

diff --git a/eval.scm b/eval.scm
index d557e62a..65e2dee9 100644
--- a/eval.scm
+++ b/eval.scm
@@ -1478,6 +1478,7 @@
 	(call-with-current-continuation call-with-current-continuation)
 	(print-call-chain print-call-chain)
 	(flush-output flush-output)
+	(string-append string-append)
 	(load-verbose load-verbose))
     (lambda ()
 
@@ -1488,7 +1489,11 @@
 	(cond ((null? xs)
 	       (##sys#print "; no values\n" #f ##sys#standard-output))
 	      ((not (eq? (##core#undefined) (car xs)))
-	       (for-each (cut ##sys#repl-print-hook <> ##sys#standard-output) xs) ) ) )
+	       (for-each (cut ##sys#repl-print-hook <> ##sys#standard-output) xs)
+	       (when (pair? (cdr xs))
+		 (##sys#print 
+		  (string-append "; " (##sys#number->string (length xs)) " values\n")
+		  #f ##sys#standard-output)))))
 
       (let ((stdin ##sys#standard-input)
 	    (stdout ##sys#standard-output)