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-Url: https://birchwood-abbey.net/git?a=commitdiff_plain;h=d2a03a32868d23f91d2731bd4c5ffe7dde35cf8b;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 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))