fix sqlite -- wasn't settin gthe bound? flag

db4
Doug Coleman 2008-02-29 15:38:20 -06:00
parent ad2d06806b
commit 869cfd5463
2 changed files with 3 additions and 2 deletions

View File

@ -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

View File

@ -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 ;