diff --git a/contrib/sqlite/sqlite.factor b/contrib/sqlite/sqlite.factor index 74ec4fa936..3baa332d9e 100644 --- a/contrib/sqlite/sqlite.factor +++ b/contrib/sqlite/sqlite.factor @@ -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 dup >r + dup length dup >r sqlite3_prepare sqlite-check-result r> sqlite3-stmt-indirect-pointer ;