From: Chris Hanson <org/chris-hanson/cph>
Date: Wed, 10 Oct 2018 02:52:46 +0000 (-0700)
Subject: Fix thinko in string reader: first octal digit is in range 0-3.
X-Git-Tag: mit-scheme-pucked-9.2.19~2^2~3
X-Git-Url: https://birchwood-abbey.net/git?a=commitdiff_plain;h=e7c439bc9a961a188eaf6678a4a109ebf97af3e1;p=mit-scheme.git

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 2d814fc41..84c051a51 100644
--- 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)))))