Add C-style character specs inside strings.

diff --git a/v7/src/runtime/parse.scm b/v7/src/runtime/parse.scm
index 5719ab6709864579210574e9bc894dc0ac227d7e..d26597842847e52e1c1af5579e17329bfd799e0a 100644 (file)
--- a/v7/src/runtime/parse.scm
+++ b/v7/src/runtime/parse.scm
@@ -1,6 +1,6 @@
 #| -*-Scheme-*-
 
-$Header: /Users/cph/tmp/foo/mit-scheme/mit-scheme/v7/src/runtime/parse.scm,v 14.13 1990/11/09 08:44:12 cph Rel $
+$Header: /Users/cph/tmp/foo/mit-scheme/mit-scheme/v7/src/runtime/parse.scm,v 14.14 1991/08/27 23:19:01 jinx Exp $
 
 Copyright (c) 1988, 1989, 1990 Massachusetts Institute of Technology
 
@@ -423,9 +423,13 @@ MIT in each case. |#
          head
          (let ((char
                 (let ((char (read-char)))
-                  (cond ((char-ci=? char #\t) #\Tab)
-                        ((char-ci=? char #\n) #\Newline)
+                  (cond ((char-ci=? char #\n) #\Newline)
+                        ((char-ci=? char #\t) #\Tab)
+                        ((char-ci=? char #\v) #\HT)
+                        ((char-ci=? char #\b) #\BS)
+                        ((char-ci=? char #\r) #\Return)
                         ((char-ci=? char #\f) #\Page)
+                        ((char-ci=? char #\a) #\BEL)
                         ((char->digit char 8)
                          (let ((c2 (read-char)))
                            (octal->char char c2 (read-char))))

diff --git a/v7/src/runtime/unpars.scm b/v7/src/runtime/unpars.scm
index a9abf9a8e0d80bcc23e350e68f266381be423b47..73b6fc271a6280e3b5c2dea9823369dfd925e16a 100644 (file)
--- a/v7/src/runtime/unpars.scm
+++ b/v7/src/runtime/unpars.scm
@@ -1,6 +1,6 @@
 #| -*-Scheme-*-
 
-$Header: /Users/cph/tmp/foo/mit-scheme/mit-scheme/v7/src/runtime/unpars.scm,v 14.22 1991/06/15 00:08:45 cph Exp $
+$Header: /Users/cph/tmp/foo/mit-scheme/mit-scheme/v7/src/runtime/unpars.scm,v 14.23 1991/08/27 23:21:20 jinx Exp $
 
 Copyright (c) 1988-91 Massachusetts Institute of Technology
 
@@ -330,12 +330,20 @@ MIT in each case. |#
                           (*unparse-substring string start index)
                           (*unparse-char #\\)
                           (let ((char (string-ref string index)))
-                            (cond ((char=? char #\Tab)
-                                   (*unparse-char #\t))
-                                  ((char=? char char:newline)
+                            (cond ((char=? char char:newline)
                                    (*unparse-char #\n))
+                                  ((char=? char #\Tab)
+                                   (*unparse-char #\t))
+                                  ((char=? char #\VT)
+                                   (*unparse-char #\v))
+                                  ((char=? char #\BS)
+                                   (*unparse-char #\b))
+                                  ((char=? char #\Return)
+                                   (*unparse-char #\r))
                                   ((char=? char #\Page)
                                    (*unparse-char #\f))
+                                  ((char=? char #\BEL)
+                                   (*unparse-char #\a))
                                   ((or (char=? char #\\)
                                        (char=? char #\"))
                                    (*unparse-char char))