adns compiles ish, working on transferring the rest

[chiark-tcl.git] / dgram / dgram.c

diff --git a/dgram/dgram.c b/dgram/dgram.c
index ff16917fb352c3843f2ea911ba79185223c8fcd7..31264f35927f4d983aa10b602cb237d7b97eb249 100644 (file)
--- a/dgram/dgram.c
+++ b/dgram/dgram.c
@@ -142,7 +142,7 @@ int do_dgram_socket_on_receive(ClientData cd, Tcl_Interp *ip,
   cancel(sock);
   
   if (newscript) {
-    rc= scriptinv_set(&sock->script, ip, newscript);
+    rc= scriptinv_set(&sock->script, ip, newscript, 0);
     if (rc) return rc;
   }
   
@@ -163,8 +163,8 @@ static void destroy_idtabcb(Tcl_Interp *ip, void *sock_v) {
 }
 
 int do_dgram_socket_close(ClientData cd, Tcl_Interp *ip, void *sock_v) {
-  destroy(sock_v);
   tabledataid_disposing(ip,sock_v,&dgram_socks);
+  destroy(sock_v);
   return TCL_OK;
 }