fix compile errors in sqlite

db4
Doug Coleman 2008-02-03 00:14:27 -06:00
parent 55cfd30543
commit 1b03538caa
3 changed files with 2 additions and 3 deletions

View File

@ -77,7 +77,7 @@ GENERIC: advance-row ( result-set -- ? )
: do-bound-query ( obj query -- rows )
[ bind-statement ] keep do-query ;
: do-bound-command ( obj query -- rows )
: do-bound-command ( obj query -- )
[ bind-statement ] keep execute-statement ;
: sql-query ( sql -- rows )

View File

@ -109,7 +109,6 @@ TYPEDEF: void sqlite3_stmt
LIBRARY: sqlite
FUNCTION: int sqlite3_open ( char* filename, void* ppDb ) ;
FUNCTION: int sqlite3_open_v2 ( char* filename, void* ppDb, int flags, char* zVfs ) ;
FUNCTION: int sqlite3_close ( sqlite3* pDb ) ;
FUNCTION: int sqlite3_prepare ( sqlite3* pDb, char* zSql, int nBytes, void* ppStmt, void* pzTail ) ;
FUNCTION: int sqlite3_finalize ( sqlite3_stmt* pStmt ) ;

View File

@ -80,7 +80,7 @@ TUPLE: sqlite-error n message ;
sqlite-step
] if ;
: sqlite-next ( prepared -- )
: sqlite-next ( prepared -- ? )
sqlite3_step step-complete? ;
: sqlite-each ( statement quot -- )