working on making xargs work

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

diff --git a/adns/adns.c b/adns/adns.c
index 3812ffc87d80c30dc6f475619b50d41ef9b07627..5f26d327d0a3029c606b97ed4c250474fa44f6eb 100644 (file)
--- a/adns/adns.c
+++ b/adns/adns.c
@@ -604,9 +604,9 @@ int do_adns_asynch(ClientData cd, Tcl_Interp *ip,
 
   res= op.resolver;
 
-  rc= scriptinv_set(&query->on_yes, ip,on_yes);   if (rc) goto x_rc;
-  rc= scriptinv_set(&query->on_no,  ip,on_no);    if (rc) goto x_rc;
-  rc= scriptinv_set(&query->on_fail,ip,on_fail);  if (rc) goto x_rc;
+  rc= scriptinv_set_xa(&query->on_yes, ip,on_yes);   if (rc) goto x_rc;
+  rc= scriptinv_set_xa(&query->on_no,  ip,on_no);    if (rc) goto x_rc;
+  rc= scriptinv_set_xa(&query->on_fail,ip,on_fail);  if (rc) goto x_rc;
   query->xargs= xargs;
   Tcl_IncrRefCount(xargs);
   *result= query;