(Fregister_ccl_program): Handle the return value of

resolve_symbol_ccl_program correctly.

diff --git a/src/ccl.c b/src/ccl.c
index bd9c7d4debe1f81f58c5ffb81dc3ae09c09ee7e9..2b27a2c4888542240c02f25e6c7a2a969dc64b1a 100644 (file)
--- 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++)