Write displays "\r" properly.

2006-12-02 16:07:51 -05:00 · 2006-12-02 16:07:51 -05:00 · d1cbb8ce2e
parent 90ef531920
commit d1cbb8ce2e
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
@ -162,6 +162,9 @@
               [($char= #\newline c)
                (write-char #\\ p)
                (write-char #\n p)] 
+               [($char= #\return c)
+                (write-char #\\ p)
+                (write-char #\r p)] 
               [($char= #\tab c)
                (write-char #\\ p)
                (write-char #\t p)]