From: Chris Hanson <org/chris-hanson/cph>
Date: Sat, 11 Feb 2017 06:42:30 +0000 (-0800)
Subject: Use correct case-folding algorithm for symbols.
X-Git-Tag: mit-scheme-pucked-9.2.12~220^2~145
X-Git-Url: https://birchwood-abbey.net/git?a=commitdiff_plain;h=b2ccb74b7e91b608c997fe6e4e6e40225fccd19d;p=mit-scheme.git

Use correct case-folding algorithm for symbols.
---

diff --git a/src/runtime/symbol.scm b/src/runtime/symbol.scm
index 735952c47..6b8e5bc82 100644
--- a/src/runtime/symbol.scm
+++ b/src/runtime/symbol.scm
@@ -70,16 +70,16 @@ USA.
   (string->symbol (%ustring* objects 'symbol)))
 
 (define (intern string)
-  (string->symbol (cold-load-downcase string)))
+  (string->symbol (cold-load-foldcase string)))
 
 (define (intern-soft string)
-  ((ucode-primitive find-symbol) (string->utf8 (cold-load-downcase string))))
+  ((ucode-primitive find-symbol) (string->utf8 (cold-load-foldcase string))))
 
-(define (cold-load-downcase string)
+(define (cold-load-foldcase string)
   (if (ascii-string? string)
       ;; Needed during cold load.
       (legacy-string-downcase string)
-      (ustring-downcase string)))
+      (ustring-foldcase string)))
 
 (define (symbol-name symbol)
   (if (not (symbol? symbol))