Mercurial > emacs
comparison lisp/international/ccl.el @ 102602:d8c8b8498218
(ccl-compile-if): Signal an error for invalid operator.
| author | Kenichi Handa <handa@m17n.org> |
|---|---|
| date | Mon, 16 Mar 2009 11:12:40 +0000 |
| parents | a9dc0e7c3f2b |
| children | 8b630212b554 |
comparison
equal
deleted
inserted
replaced
| 102601:68c67342e3bf | 102602:d8c8b8498218 |
|---|---|
| 503 ;; CONDITION is a simple expression of the form (RRR OP ARG). | 503 ;; CONDITION is a simple expression of the form (RRR OP ARG). |
| 504 (let ((rrr (car condition)) | 504 (let ((rrr (car condition)) |
| 505 (op (get (nth 1 condition) 'ccl-arith-code)) | 505 (op (get (nth 1 condition) 'ccl-arith-code)) |
| 506 (arg (nth 2 condition))) | 506 (arg (nth 2 condition))) |
| 507 (ccl-check-register rrr cmd) | 507 (ccl-check-register rrr cmd) |
| 508 (or (integerp op) | |
| 509 (error "CCL: invalid operator: %s" (nth 1 condition))) | |
| 508 (if (integerp arg) | 510 (if (integerp arg) |
| 509 (progn | 511 (progn |
| 510 (ccl-embed-code (if read-flag 'read-jump-cond-expr-const | 512 (ccl-embed-code (if read-flag 'read-jump-cond-expr-const |
| 511 'jump-cond-expr-const) | 513 'jump-cond-expr-const) |
| 512 rrr 0) | 514 rrr 0) |