fix compile errors in sqlite
parent
55cfd30543
commit
1b03538caa
|
@ -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 )
|
||||
|
|
|
@ -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 ) ;
|
||||
|
|
|
@ -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 -- )
|
||||
|
|
Loading…
Reference in New Issue