From 4d247a1f5734d0af7f7ec7cb770e8838ac55bddf Mon Sep 17 00:00:00 2001 From: Kenichi Handa Date: Tue, 16 Jan 2001 08:28:01 +0000 Subject: [PATCH] (Fregister_ccl_program): Handle the return value of resolve_symbol_ccl_program correctly. --- src/ccl.c | 6 +++++- 1 file changed, 5 insertions(+), 1 deletion(-) diff --git a/src/ccl.c b/src/ccl.c index bd9c7d4debe..2b27a2c4888 100644 --- a/src/ccl.c +++ b/src/ccl.c @@ -2111,11 +2111,15 @@ Return index number of the registered CCL program.") { CHECK_VECTOR (ccl_prog, 1); resolved = resolve_symbol_ccl_program (ccl_prog); - if (! NILP (resolved)) + if (NILP (resolved)) + error ("Error in CCL program"); + if (VECTORP (resolved)) { ccl_prog = resolved; resolved = Qt; } + else + resolved = Qnil; } for (idx = 0; idx < len; idx++) -- 2.39.2