X-Git-Url: http://lists.indexdata.com/cgi-bin?a=blobdiff_plain;f=ir-tcl.c;h=c579222748769b2a2340fe7b54577f4d3e590719;hb=c7b4d83f69d0b3a2d28d538e375b50c7970db26c;hp=fc95e30a6dbbf042b94ca54ea93741369ff74bc6;hpb=510fc2e05a3233005879413ae401865d91efe73e;p=ir-tcl-moved-to-github.git

diff --git a/ir-tcl.c b/ir-tcl.c
index fc95e30..c579222 100644
--- a/ir-tcl.c
+++ b/ir-tcl.c
@@ -5,7 +5,10 @@
  * Sebastian Hammer, Adam Dickmeiss
  *
  * $Log: ir-tcl.c,v $
- * Revision 1.107  1998-06-10 13:00:46  adam
+ * Revision 1.108  1998-10-12 11:48:08  adam
+ * Removed printf call.
+ *
+ * Revision 1.107  1998/06/10 13:00:46  adam
  * Added ir-version command.
  *
  * Revision 1.106  1998/05/20 12:25:35  adam
@@ -3338,7 +3341,6 @@ static int do_scanLine (void *obj, Tcl_Interp *interp, int argc, char **argv)
                           " position\"", NULL);
         return TCL_ERROR;
     }
-    printf ("argv[2]=%s\n", argv[2]);
     if (Tcl_GetInt (interp, argv[2], &i) == TCL_ERROR)
         return TCL_ERROR;
     if (!p->entries_flag || !p->entries || i >= p->num_entries || i < 0)