X-Git-Url: http://lists.indexdata.com/cgi-bin?a=blobdiff_plain;f=ir-tcl.c;h=68d04b4e7d190c5404410b8570f1830222ed465d;hb=bbe888d936adcb31a74a64c0327bd7e14b56a766;hp=9eddd5f47ea5e70a9822917ae45e347333a28057;hpb=c10f5ecfbd81e3a9bda4cca310e13b066a520f4a;p=ir-tcl-moved-to-github.git

diff --git a/ir-tcl.c b/ir-tcl.c
index 9eddd5f..68d04b4 100644
--- a/ir-tcl.c
+++ b/ir-tcl.c
@@ -5,7 +5,11 @@
  * Sebastian Hammer, Adam Dickmeiss
  *
  * $Log: ir-tcl.c,v $
- * Revision 1.75  1996-02-19 15:41:53  adam
+ * Revision 1.76  1996-02-20 16:09:51  adam
+ * Bug fix: didn't set element set names stamp correctly on result
+ * set records when element set names were set to the empty string.
+ *
+ * Revision 1.75  1996/02/19  15:41:53  adam
  * Better log messages.
  * Minor improvement of connect method.
  *
@@ -297,6 +301,8 @@ static IrTcl_RecordList *new_IR_record (IrTcl_SetObj *setobj,
 {
     IrTcl_RecordList *rl;
 
+    if (elements && !*elements)
+        elements = NULL;
     for (rl = setobj->record_list; rl; rl = rl->next)
     {
         if (no == rl->no && (!rl->elements || !elements ||
@@ -2021,7 +2027,10 @@ static int do_resultCount (void *o, Tcl_Interp *interp,
     IrTcl_SetObj *obj = o;
 
     if (argc <= 0)
+    {
+        obj->resultCount = 0;
         return TCL_OK;
+    }
     return get_set_int (&obj->resultCount, interp, argc, argv);
 }