Mercurial > emacs
comparison src/ccl.c @ 35322:ac015053a9a1
(Fregister_ccl_program): Handle the return value of
resolve_symbol_ccl_program correctly.
| author | Kenichi Handa <handa@m17n.org> |
|---|---|
| date | Tue, 16 Jan 2001 08:28:01 +0000 |
| parents | a16dc29a46c7 |
| children | f4c8b11d4d36 |
comparison
equal
deleted
inserted
replaced
| 35321:44f49244c7bd | 35322:ac015053a9a1 |
|---|---|
| 2109 resolved = Qnil; | 2109 resolved = Qnil; |
| 2110 if (!NILP (ccl_prog)) | 2110 if (!NILP (ccl_prog)) |
| 2111 { | 2111 { |
| 2112 CHECK_VECTOR (ccl_prog, 1); | 2112 CHECK_VECTOR (ccl_prog, 1); |
| 2113 resolved = resolve_symbol_ccl_program (ccl_prog); | 2113 resolved = resolve_symbol_ccl_program (ccl_prog); |
| 2114 if (! NILP (resolved)) | 2114 if (NILP (resolved)) |
| 2115 error ("Error in CCL program"); | |
| 2116 if (VECTORP (resolved)) | |
| 2115 { | 2117 { |
| 2116 ccl_prog = resolved; | 2118 ccl_prog = resolved; |
| 2117 resolved = Qt; | 2119 resolved = Qt; |
| 2118 } | 2120 } |
| 2121 else | |
| 2122 resolved = Qnil; | |
| 2119 } | 2123 } |
| 2120 | 2124 |
| 2121 for (idx = 0; idx < len; idx++) | 2125 for (idx = 0; idx < len; idx++) |
| 2122 { | 2126 { |
| 2123 Lisp_Object slot; | 2127 Lisp_Object slot; |