Pager is working, mostly. (CVS 211)
FossilOrigin-Name: f82fa7070ae281804c019e6b05cd767dadaf0827
diff --git a/src/tclsqlite.c b/src/tclsqlite.c
index 42c8ead..6d5c2c6 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 @@
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 ){