From: Chris Hanson <org/chris-hanson/cph>
Date: Fri, 6 Oct 2017 23:56:24 +0000 (-0700)
Subject: Fix typo when reading symbols without #!fold-case.
X-Git-Tag: mit-scheme-pucked-9.2.12~14^2~20
X-Git-Url: https://birchwood-abbey.net/git?a=commitdiff_plain;h=8b438928905e2b12a83e15dcd8d66af89878c669;p=mit-scheme.git

Fix typo when reading symbols without #!fold-case.
---

diff --git a/src/runtime/parse.scm b/src/runtime/parse.scm
index aaf84327a..c4bbe692a 100644
--- a/src/runtime/parse.scm
+++ b/src/runtime/parse.scm
@@ -335,7 +335,7 @@ USA.
 (define (string-maybe-ci=? db s1 s2)
   (if (db-fold-case? db)
       (string-ci=? s1 s2)
-      (string-maybe-ci=? db s1 s2)))
+      (string=? s1 s2)))
 
 (define (handler:whitespace db ctx char)
   db ctx char