From b2ccb74b7e91b608c997fe6e4e6e40225fccd19d Mon Sep 17 00:00:00 2001 From: Chris Hanson Date: Fri, 10 Feb 2017 22:42:30 -0800 Subject: [PATCH] Use correct case-folding algorithm for symbols. --- src/runtime/symbol.scm | 8 ++++---- 1 file changed, 4 insertions(+), 4 deletions(-) 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)) -- 2.25.1