From 5aba3ecbeaea9abaf783ac39ecc159bf90eccdae Mon Sep 17 00:00:00 2001
From: Matt Birkholz <matt@birchwood-abbey.net>
Date: Thu, 16 Feb 2017 13:17:05 -0700
Subject: [PATCH] runtime/char.scm (unicode-char?): unreferenced bound
 variable: cp

---
 src/runtime/char.scm | 4 ++--
 1 file changed, 2 insertions(+), 2 deletions(-)

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