From: Taylor R Campbell <campbell@mumble.net>
Date: Wed, 2 Jan 2019 02:16:28 +0000 (+0000)
Subject: ucd-slc-value &c. return chars, not fixnums.
X-Git-Tag: mit-scheme-pucked-10.1.9~3^2~43
X-Git-Url: https://birchwood-abbey.net/git?a=commitdiff_plain;h=943b1bbce0b835cc55fb2cfa3f3947d5e4bf5658;p=mit-scheme.git

ucd-slc-value &c. return chars, not fixnums.
---

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))