runtime/char.scm (unicode-char?): unreferenced bound variable: cp

diff --git a/src/runtime/char.scm b/src/runtime/char.scm
index d024178769a952bb47980a6aaedb41adee68b1c3..00438292420aa0e0ac62fc7a6c6e0af655e5d6a2 100644 (file)
--- a/src/runtime/char.scm
+++ b/src/runtime/char.scm
@@ -352,8 +352,8 @@ USA.
 (define (unicode-char? object)
   (and (char? object)
        (let ((cp (char->integer object)))
-        (and (fix:< object char-code-limit)
-             (not (utf16-surrogate? object))))))
+        (and (fix:< cp char-code-limit)
+             (not (utf16-surrogate? cp))))))
 
 (define (unicode-scalar-value? object)
   (and (unicode-code-point? object)