~ chicken-core (chicken-5) df2708e7f406a2b4f1d4b3abf6b141671487618b
commit df2708e7f406a2b4f1d4b3abf6b141671487618b
Author: felix <felix@call-with-current-continuation.org>
AuthorDate: Thu Sep 2 04:22:22 2010 -0400
Commit: felix <felix@call-with-current-continuation.org>
CommitDate: Thu Sep 2 04:22:22 2010 -0400
changed layout of ,d fixnum
diff --git a/csi.scm b/csi.scm
index d70301ab..7c394183 100644
--- a/csi.scm
+++ b/csi.scm
@@ -560,7 +560,7 @@ EOF
[(eof-object? x) (fprintf out "end-of-file object~%")]
[(eq? (##sys#void) x) (fprintf out "unspecified object~%")]
[(fixnum? x)
- (fprintf out "exact integer ~S, #x~X, #o~O, #b~B" x x x x)
+ (fprintf out "exact integer ~S~% #x~X~% #o~O~% #b~B" x x x x)
(let ([code (integer->char x)])
(when (fx< x #x10000) (fprintf out ", character ~S" code)) )
(##sys#write-char-0 #\newline ##sys#standard-output) ]
Trap