# HG changeset patch
# User Kenichi Handa <handa@m17n.org>
# Date 1237201960 0
# Node ID d8c8b8498218a7bf20c2f0b52615e1ffe36221c5
# Parent  68c67342e3bfdb3f805e880552cb602a225f5c1d
(ccl-compile-if): Signal an error for invalid operator.

diff -r 68c67342e3bf -r d8c8b8498218 lisp/international/ccl.el
--- a/lisp/international/ccl.el	Mon Mar 16 03:17:48 2009 +0000
+++ b/lisp/international/ccl.el	Mon Mar 16 11:12:40 2009 +0000
@@ -505,6 +505,8 @@
 	    (op (get (nth 1 condition) 'ccl-arith-code))
 	    (arg (nth 2 condition)))
 	(ccl-check-register rrr cmd)
+	(or (integerp op)
+	    (error "CCL: invalid operator: %s" (nth 1 condition)))
 	(if (integerp arg)
 	    (progn
 	      (ccl-embed-code (if read-flag 'read-jump-cond-expr-const