diff options
| author | drh <drh@noemail.net> | 2001-04-15 00:37:09 +0000 |
|---|---|---|
| committer | drh <drh@noemail.net> | 2001-04-15 00:37:09 +0000 |
| commit | d9b0257a247cad31a2e85262a4103bb0c917b49b (patch) | |
| tree | 631b2558ea877c82f3dda60f053f40552acffaf9 /src/tclsqlite.c | |
| parent | 69688d5f54fbe0dd1b47828a05f5ffb237990b11 (diff) | |
| download | sqlite-d9b0257a247cad31a2e85262a4103bb0c917b49b.tar.gz sqlite-d9b0257a247cad31a2e85262a4103bb0c917b49b.zip | |
Pager is working, mostly. (CVS 211)
FossilOrigin-Name: f82fa7070ae281804c019e6b05cd767dadaf0827
Diffstat (limited to 'src/tclsqlite.c')
| -rw-r--r-- | src/tclsqlite.c | 6 |
1 files changed, 4 insertions, 2 deletions
diff --git a/src/tclsqlite.c b/src/tclsqlite.c index 42c8eada5..6d5c2c6b0 100644 --- a/src/tclsqlite.c +++ b/src/tclsqlite.c @@ -23,7 +23,7 @@ ************************************************************************* ** A TCL Interface to SQLite ** -** $Id: tclsqlite.c,v 1.17 2001/04/07 15:24:33 drh Exp $ +** $Id: tclsqlite.c,v 1.18 2001/04/15 00:37:09 drh Exp $ */ #ifndef NO_TCL /* Omit this whole file if TCL is unavailable */ @@ -507,10 +507,12 @@ int TCLSH_MAIN(int argc, char **argv){ Tcl_FindExecutable(argv[0]); interp = Tcl_CreateInterp(); Sqlite_Init(interp); -#ifdef SQLITE_TEST1 +#ifdef SQLITE_TEST { extern int Sqlitetest1_Init(Tcl_Interp*); + extern int Sqlitetest2_Init(Tcl_Interp*); Sqlitetest1_Init(interp); + Sqlitetest2_Init(interp); } #endif if( argc>=2 ){ |