Fix thinko in string reader: first octal digit is in range 0-3.

diff --git a/src/runtime/reader.scm b/src/runtime/reader.scm
index 2d814fc41753d54282be3056c61f1ba1aa1b87c8..84c051a5199fd0904e28e37faac5e005b2f8cad4 100644 (file)
--- a/src/runtime/reader.scm
+++ b/src/runtime/reader.scm
@@ -653,7 +653,7 @@ USA.
              ;; MIT/GNU extensions:
              ((char=? char #\f) (emit #\page))
              ((char=? char #\v) (emit #\vt))
-             ((char->digit char 3)
+             ((char->digit char 4)
               => (lambda (d) (emit (read-octal-escape char d))))
              (else (emit char)))))