(Fregister_ccl_program): Handle the return value of

resolve_symbol_ccl_program correctly.

1 files changed, 5 insertions, 1 deletions

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++)