X-Git-Url: http://git.indexdata.com/?a=blobdiff_plain;f=explain.c;fp=explain.c;h=be59d5f62bb46e89869731c4832ac0022ed2b438;hb=ccb0e753628e08a767b808487e5702f919edd351;hp=315b0744fd11cf159cf0cd0c76104adf8b735cd8;hpb=4e3b3a0b8561395bec8d09025a42e208f534eba1;p=ir-tcl-moved-to-github.git

diff --git a/explain.c b/explain.c
index 315b074..be59d5f 100644
--- a/explain.c
+++ b/explain.c
@@ -5,7 +5,10 @@
  * Sebastian Hammer, Adam Dickmeiss
  *
  * $Log: explain.c,v $
- * Revision 1.4  1996-08-22 13:39:31  adam
+ * Revision 1.5  1996-08-23 11:59:47  adam
+ * Bug fix: infinite look in ir_oid.
+ *
+ * Revision 1.4  1996/08/22  13:39:31  adam
  * More work on explain.
  *
  * Revision 1.3  1996/08/21  13:32:50  adam
@@ -279,6 +282,7 @@ static int ir_oid (IrExpArg *iea,
         sprintf (buf, "%c%d", first, *p);
         Tcl_AppendResult (iea->interp, buf, NULL);
         first = '.';
+        p++;
     }
     return ir_match_end (name, iea, argi);
 }