runtime/parse: typo/thinko

diff --git a/src/runtime/parse.scm b/src/runtime/parse.scm
index 22bea20cbb1c7d882e7f8ef9f2c3d8f5de681730..69fa8c84e92f45290c41b67f35152cf29af9cc78 100644 (file)
--- 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))))