X-Git-Url: http://jsfdemo.indexdata.com/?a=blobdiff_plain;f=ccl%2Fcclfind.c;h=3fac8e5b03c9ea1a21e32a16dfe413e20c93b906;hb=c3d25c24fb405af98c6879fa7f5f619ccc895151;hp=7afb1896a0b7e8be60fec7f732307605cae64634;hpb=bdda8bd7f04fb21be839a99f414667a4a4f6ef58;p=egate.git

diff --git a/ccl/cclfind.c b/ccl/cclfind.c
index 7afb189..3fac8e5 100644
--- a/ccl/cclfind.c
+++ b/ccl/cclfind.c
@@ -2,7 +2,13 @@
  * Europagate, 1995
  *
  * $Log: cclfind.c,v $
- * Revision 1.9  1995/02/16 13:20:06  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
  * Spell fix.
  *
  * Revision 1.8  1995/02/14  19:59:42  adam
@@ -570,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;