# HG changeset patch
# User Kenichi Handa <handa@m17n.org>
# Date 979633681 0
# Node ID ac015053a9a1ea4414b90c562283da0f02e09c98
# Parent  44f49244c7bdd24fa06c887b5f657aaf786b87a9
(Fregister_ccl_program): Handle the return value of
resolve_symbol_ccl_program correctly.

diff -r 44f49244c7bd -r ac015053a9a1 src/ccl.c
--- a/src/ccl.c	Tue Jan 16 08:27:47 2001 +0000
+++ b/src/ccl.c	Tue Jan 16 08:28:01 2001 +0000
@@ -2111,11 +2111,15 @@
     {
       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++)