* lib.c (chrp): Fix broken is_chr(num) call.

2 files changed, 5 insertions, 1 deletions

diff --git a/ChangeLog b/ChangeLog
index 3dd611a7..2a2829d3 100644
--- a/ChangeLog
+++ b/ChangeLog
@@ -1,5 +1,9 @@
 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
 	should be unsigned.
 
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)