diff src/ccl.c @ 89522:c4f948b2b0da

(ccl_driver): Fix arg of CHARACTERP.

--- a/src/ccl.c	Wed Sep 17 19:23:44 2003 +0000
+++ b/src/ccl.c	Wed Sep 17 19:26:25 2003 +0000
@@ -1253,7 +1253,7 @@
 		  {
 		    Lisp_Object opl;
 		    opl = HASH_VALUE (h, op);
-		    if (! CHARACTERP (XINT (opl)))
+		    if (! CHARACTERP (opl))
 		      CCL_INVALID_CMD;
 		    reg[RRR] = charset_unicode;
 		    reg[rrr] = op;