comparison src/ccl.c @ 89522:c4f948b2b0da

(ccl_driver): Fix arg of CHARACTERP.

89521:d422cab7935a

		op = hash_lookup (h, make_number (reg[RRR]), NULL);
		if (op >= 0)
		  {
		    Lisp_Object opl;
		    opl = HASH_VALUE (h, op);
		    if (! CHARACTERP (XINT (opl)))
		      CCL_INVALID_CMD;
		    reg[RRR] = charset_unicode;
		    reg[rrr] = op;
		    reg[7] = 1; /* r7 true for success */
		  }

89522:c4f948b2b0da

		op = hash_lookup (h, make_number (reg[RRR]), NULL);
		if (op >= 0)
		  {
		    Lisp_Object opl;
		    opl = HASH_VALUE (h, op);
		    if (! CHARACTERP (opl))
		      CCL_INVALID_CMD;
		    reg[RRR] = charset_unicode;
		    reg[rrr] = op;
		    reg[7] = 1; /* r7 true for success */
		  }