From d2a03a32868d23f91d2731bd4c5ffe7dde35cf8b Mon Sep 17 00:00:00 2001 From: Taylor R Campbell Date: Wed, 2 Jan 2019 02:16:28 +0000 Subject: [PATCH] ucd-slc-value &c. return chars, not fixnums. --- src/runtime/char.scm | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) diff --git a/src/runtime/char.scm b/src/runtime/char.scm index cdf0563e1..5ee828b15 100644 --- a/src/runtime/char.scm +++ b/src/runtime/char.scm @@ -161,7 +161,7 @@ USA. (lambda (char) (if (fix:= 0 (char-bits char)) (mapper char) - (%make-char (mapper (%make-char (char-code char) 0)) + (%make-char (char-code (mapper (%make-char (char-code char) 0))) (char-bits char))))) (set! char-downcase (char-mapper ucd-slc-value)) -- 2.25.1