From e7c439bc9a961a188eaf6678a4a109ebf97af3e1 Mon Sep 17 00:00:00 2001
From: Chris Hanson <org/chris-hanson/cph>
Date: Tue, 9 Oct 2018 19:52:46 -0700
Subject: [PATCH] Fix thinko in string reader: first octal digit is in range
 0-3.

---
 src/runtime/reader.scm | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

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)))))
 
-- 
2.25.1