~ chicken-core (chicken-5) 1357ff1b75ed7a9120c51a47b0c32a1953428a98

commit 1357ff1b75ed7a9120c51a47b0c32a1953428a98
Author:     felix <felix@call-with-current-continuation.org>
AuthorDate: Fri Mar 5 21:35:41 2010 +0100
Commit:     felix <felix@call-with-current-continuation.org>
CommitDate: Fri Mar 5 21:35:41 2010 +0100

    indicate zero values in repl result

diff --git a/eval.scm b/eval.scm
index 24afb93d..6bf69fda 100644
--- a/eval.scm
+++ b/eval.scm
@@ -1572,8 +1572,10 @@
 	(for-each (cut ##sys#repl-print-hook <> ##sys#standard-error) xs) )
 
       (define (write-results xs)
-	(unless (or (null? xs) (eq? (##core#undefined) (car xs)))
-	  (for-each (cut ##sys#repl-print-hook <> ##sys#standard-output) xs) ) )
+	(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) ) ) )
 
       (let ((stdin ##sys#standard-input)
 	    (stdout ##sys#standard-output)