From: Matt Birkholz <matt@birchwood-abbey.net>
Date: Wed, 15 Feb 2017 23:00:37 +0000 (-0700)
Subject: runtime/parse: typo/thinko
X-Git-Tag: mit-scheme-pucked-9.2.12~220^2~99
X-Git-Url: https://birchwood-abbey.net/git?a=commitdiff_plain;h=7a0d0a8017c74c980265035bc9dd1d99b1834120;p=mit-scheme.git

runtime/parse: typo/thinko
---

diff --git a/src/runtime/parse.scm b/src/runtime/parse.scm
index 22bea20cb..69fa8c84e 100644
--- a/src/runtime/parse.scm
+++ b/src/runtime/parse.scm
@@ -753,8 +753,8 @@ USA.
 	       (d2 (char->digit c2 8))
 	       (c3 (%read-char/no-eof port db))
 	       (d3 (char->digit c3 8)))
-	  (if (and d2 d3)
-	      (error:illegal-string-escape (list->ustring (cons #\\ c1 c2 c3))))
+	  (if (not (and d2 d3))
+	      (error:illegal-string-escape (list->ustring (list #\\ c1 c2 c3))))
 	  (integer->char (fix:+ (fix:lsh (fix:+ (fix:lsh d1 3) d2) 3) d3))))
 
       (loop))))