commit 9b0d0a8bc5f5c1d0cea55db7f4fc25fb4636aaec
author drh <drh@noemail.net> Sat Sep 30 22:46:05 2000 +0000
committer drh <drh@noemail.net> Sat Sep 30 22:46:05 2000 +0000
tree cb753f8031b856cc13b8802a1bd61a51d95ca9ee
parent 05a1c8d08c16a6483bb4e5409de54dfddeac9348

Documenting the TCL interface (CVS 149)

FossilOrigin-Name: 7e0bacedf928095b29e7166eacd2356e8169d6dd

src/tclsqlite.c

diff --git a/src/tclsqlite.c b/src/tclsqlite.c
index b4bdd88..0399b3f 100644
--- a/src/tclsqlite.c
+++ b/src/tclsqlite.c
@@ -23,7 +23,7 @@
 *************************************************************************
 ** A TCL Interface to SQLite
 **
-** $Id: tclsqlite.c,v 1.9 2000/09/21 13:01:37 drh Exp $
+** $Id: tclsqlite.c,v 1.10 2000/09/30 22:46:07 drh Exp $
 */
 #ifndef NO_TCL     /* Omit this whole file if TCL is unavailable */
 
@@ -68,6 +68,7 @@
   int i, rc;
   if( cbData->zArray[0] ){
     if( cbData->once ){
+      Tcl_SetVar2(cbData->interp, cbData->zArray, "*", "", 0);
       for(i=0; i<nCol; i++){
         Tcl_SetVar2(cbData->interp, cbData->zArray, "*", azN[i],
            TCL_LIST_ELEMENT|TCL_APPEND_VALUE);
@@ -87,7 +88,7 @@
   }
   cbData->once = 0;
   rc = Tcl_EvalObj(cbData->interp, cbData->pCode);
-  return rc;
+  return rc!=TCL_OK && rc!=TCL_CONTINUE;
 }
 
 /*