From: Matt Birkholz <matt@birchwood-abbey.net>
Date: Thu, 16 Feb 2017 20:17:05 +0000 (-0700)
Subject: runtime/char.scm (unicode-char?): unreferenced bound variable: cp
X-Git-Tag: mit-scheme-pucked-9.2.12~220^2~89
X-Git-Url: https://birchwood-abbey.net/git?a=commitdiff_plain;h=5aba3ecbeaea9abaf783ac39ecc159bf90eccdae;p=mit-scheme.git

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

diff --git a/src/runtime/char.scm b/src/runtime/char.scm
index d02417876..004382924 100644
--- 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)