From: Adam Dickmeiss <adam@indexdata.dk>
Date: Tue, 21 Mar 1995 15:50:12 +0000 (+0000)
Subject: Minor changes.
X-Git-Tag: IRTCL.1.4~325
X-Git-Url: http://git.indexdata.com/?a=commitdiff_plain;h=f9c5dc419c02a1a4a1c8acef5319ef8b6c41af07;p=ir-tcl-moved-to-github.git

Minor changes.
---

diff --git a/ir-tcl.c b/ir-tcl.c
index 3d6eea9..edfd4c3 100644
--- a/ir-tcl.c
+++ b/ir-tcl.c
@@ -4,7 +4,10 @@
  * Sebastian Hammer, Adam Dickmeiss
  *
  * $Log: ir-tcl.c,v $
- * Revision 1.17  1995-03-21 13:41:03  adam
+ * Revision 1.18  1995-03-21 15:50:12  adam
+ * Minor changes.
+ *
+ * Revision 1.17  1995/03/21  13:41:03  adam
  * Comstack cs_create not used too often. Non-blocking connect.
  *
  * Revision 1.16  1995/03/21  08:26:06  adam
@@ -1491,13 +1494,12 @@ void ir_select_read (ClientData clientData)
         if (r == 1)
             return;
         p->connectFlag = 0;
+        ir_select_remove_write (cs_fileno (p->cs_link), p);
         if (r < 0)
         {
             printf ("cs_rcvconnect error\n");
-            ir_select_remove_write (cs_fileno (p->cs_link), p);
             return;
         }
-        ir_select_remove_write (cs_fileno (p->cs_link), p);
         if (p->callback)
 	    Tcl_Eval (p->interp, p->callback);
         return;