Minor changes.

diff --git a/ccl/cclfind.c b/ccl/cclfind.c
index e6b38c5..3fac8e5 100644 (file)
--- a/ccl/cclfind.c
+++ b/ccl/cclfind.c
@@ -2,7 +2,10 @@
  * Europagate, 1995
  *
  * $Log: cclfind.c,v $
- * Revision 1.11  1995/02/23 08:31:59  adam
+ * Revision 1.12  1995/03/20 15:27:43  adam
+ * Minor changes.
+ *
+ * Revision 1.11  1995/02/23  08:31:59  adam
  * Changed header.
  *
  * Revision 1.9  1995/02/16  13:20:06  adam
@@ -573,15 +576,11 @@ struct ccl_rpn_node *ccl_find (CCL_bibset abibset, struct ccl_token *list,
 struct ccl_rpn_node *ccl_find_str (CCL_bibset bibset, const char *str,
                                    int *error, int *pos)
 {
-    struct ccl_token *list, *li;
+    struct ccl_token *list;
     struct ccl_rpn_node *rpn;
     const char *char_pos;
 
     list = ccl_tokenize (str);
-#if 0
-    for (li = list; li; li = li->next)
-       printf ("kind=%d, str='%.*s'\n", li->kind, li->len, li->name);
-#endif
     rpn = ccl_find (bibset, list, error, &char_pos);
     if (*error)
         *pos = char_pos - str;