From 4ce9806f4b5fd1d678e7451c11268460ef518df5 Mon Sep 17 00:00:00 2001
From: Kaz Kylheku <kaz@kylheku.com>
Date: Tue, 17 Nov 2009 14:31:06 -0800
Subject: * lib.c (chrp): Fix broken is_chr(num) call.

---
 ChangeLog | 4 ++++
 lib.c     | 2 +-
 2 files changed, 5 insertions(+), 1 deletion(-)

diff --git a/ChangeLog b/ChangeLog
index 3dd611a7..2a2829d3 100644
--- a/ChangeLog
+++ b/ChangeLog
@@ -1,3 +1,7 @@
+2009-11-17  Kaz Kylheku  <kkylheku@gmail.com>
+
+	* lib.c (chrp): Fix broken is_chr(num) call.
+
 2009-11-17  Kaz Kylheku  <kkylheku@gmail.com>
 
 	* regex.c (nfa_all_states, nfa_closure): visited parameter
diff --git a/lib.c b/lib.c
index e119ed82..3d5cbf19 100644
--- a/lib.c
+++ b/lib.c
@@ -1006,7 +1006,7 @@ obj_t *chr(wchar_t ch)
 
 obj_t *chrp(obj_t *chr)
 {
-  return (is_chr(num)) ? t : nil;
+  return (is_chr(chr)) ? t : nil;
 }
 
 wchar_t c_chr(obj_t *chr)
-- 
cgit v1.2.3