* Write now displays "\n" properly.

2006-12-02 15:58:41 -05:00 · 2006-12-02 15:58:41 -05:00 · 8642ac5305
parent ee774b2262
commit 8642ac5305
2 changed files with 3 additions and 0 deletions
--- a/lib/ikarus.boot
+++ b/lib/ikarus.boot
--- a/lib/libwriter.ss
+++ b/lib/libwriter.ss
@ -159,6 +159,9 @@
               [(or ($char= #\" c) ($char= #\\ c))
                (write-char #\\ p)
                (write-char c p)]
+               [($char= #\newline c)
+                (write-char #\\ p)
+                (write-char #\n p)] 
               [($char= #\tab c)
                (write-char #\\ p)
                (write-char #\t p)]