From 943b1bbce0b835cc55fb2cfa3f3947d5e4bf5658 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 c3df7bc7d..d68bd9dda 100644 --- a/src/runtime/char.scm +++ b/src/runtime/char.scm @@ -164,7 +164,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