From 7a0d0a8017c74c980265035bc9dd1d99b1834120 Mon Sep 17 00:00:00 2001 From: Matt Birkholz Date: Wed, 15 Feb 2017 16:00:37 -0700 Subject: [PATCH] runtime/parse: typo/thinko --- src/runtime/parse.scm | 4 ++-- 1 file changed, 2 insertions(+), 2 deletions(-) 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)))) -- 2.25.1