~ chicken-core (chicken-5) e804aa00de16bc770b0c5a5f53d8ca4ab773acb8

commit e804aa00de16bc770b0c5a5f53d8ca4ab773acb8
Author:     felix <felix@call-with-current-continuation.org>
AuthorDate: Tue Mar 1 13:58:44 2011 +0100
Commit:     felix <felix@call-with-current-continuation.org>
CommitDate: Tue Mar 1 13:58:44 2011 +0100

    output-routines return void

diff --git a/library.scm b/library.scm
index 6f0146b3..2c64448b 100644
--- a/library.scm
+++ b/library.scm
@@ -2978,7 +2978,8 @@ EOF
 ;;; Output:
 
 (define (##sys#write-char-0 c p)
-  ((##sys#slot (##sys#slot p 2) 2) p c) )
+  ((##sys#slot (##sys#slot p 2) 2) p c) 
+  (##sys#void))
 
 (define (##sys#write-char/port c port)
   (##sys#check-port* port 'write-char)
@@ -3230,7 +3231,8 @@ EOF
 			       (outchr port #\)) )
 			    (outchr port #\space)
 			    (out (##sys#slot x i)) ) ) ) ) )
-		(else (##sys#error "unprintable non-immediate object encountered")) ) ) ) ) ) )
+		(else (##sys#error "unprintable non-immediate object encountered")))))
+      (##sys#void))))
 
 (define ##sys#procedure->string 
   (let ((string-append string-append))