fix bitrot in sqlite library

cvs
Chris Double 2005-04-30 03:18:56 +00:00
parent 01b0cae9a5
commit 19bc49ece3
1 changed files with 2 additions and 1 deletions

View File

@ -35,6 +35,7 @@ USE: compiler
USE: errors
USE: strings
USE: namespaces
USE: sequences
BEGIN-STRUCT: sqlite3
END-STRUCT
@ -172,7 +173,7 @@ END-STRUCT
#! Prepare a SQL statement. Returns the statement which
#! can have values bound to parameters or simply executed.
#! TODO: Support multiple statements in the SQL string.
dup string-length <sqlite3-stmt-indirect> dup >r
dup length <sqlite3-stmt-indirect> dup >r
<char*-indirect> sqlite3_prepare sqlite-check-result
r> sqlite3-stmt-indirect-pointer ;