diff --git a/extra/db/sqlite/sqlite.factor b/extra/db/sqlite/sqlite.factor index b980e99718..d873e98a95 100755 --- a/extra/db/sqlite/sqlite.factor +++ b/extra/db/sqlite/sqlite.factor @@ -64,7 +64,8 @@ M: sqlite-statement bind-tuple ( tuple statement -- ) [ sql-spec-type ] tri 3array ] with map ] keep - [ set-statement-bind-params ] keep bind-statement* ; + [ set-statement-bind-params ] keep + t over set-statement-bound? bind-statement* ; : last-insert-id ( -- id ) db get db-handle sqlite3_last_insert_rowid diff --git a/extra/db/tuples/tuples-tests.factor b/extra/db/tuples/tuples-tests.factor index c9e6d302e0..ade18286b4 100755 --- a/extra/db/tuples/tuples-tests.factor +++ b/extra/db/tuples/tuples-tests.factor @@ -81,7 +81,7 @@ person "PERSON" 1 "billy" 10 3.14 <assigned-person> the-person1 set 2 "johnny" 10 3.14 <assigned-person> the-person2 set -test-sqlite +! test-sqlite ! test-postgresql TUPLE: paste n summary author channel mode contents timestamp annotations ;