X-Git-Url: http://git.indexdata.com/?a=blobdiff_plain;f=wais-tcl.c;h=d61dd1ff29819ce05edb6790bd636ec88a5ffc4e;hb=d026c3e06f6e19e5ed4174ab1a504a4b5af79183;hp=c445bd2664c3bfddde88c9ce50cdf27298d7a3db;hpb=12e63b65feb50e719b87ccd6ed2e383b66319407;p=ir-tcl-moved-to-github.git

diff --git a/wais-tcl.c b/wais-tcl.c
index c445bd2..d61dd1f 100644
--- a/wais-tcl.c
+++ b/wais-tcl.c
@@ -5,7 +5,10 @@
  * Wais extension to IrTcl
  *
  * $Log: wais-tcl.c,v $
- * Revision 1.4  1996-03-11 17:39:48  adam
+ * Revision 1.5  1996-03-15 14:40:23  adam
+ * Bug fix: do_responseStatus called Tcl_AppendElement when interp was 0.
+ *
+ * Revision 1.4  1996/03/11  17:39:48  adam
  * 40 documents are retrieved by default (maxDocs=40).
  *
  * Revision 1.3  1996/03/08  16:46:44  adam
@@ -927,6 +930,7 @@ static int do_responseStatus (void *o, Tcl_Interp *interp,
     {
         free (obj->diag);
         free (obj->addinfo);
+        return TCL_OK;
     }
     if (obj->diag)
     {