steve
/
factor
1
0
Fork 0
Code Issues Pull Requests Releases Wiki Activity

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
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

3
extra/db/sqlite/sqlite.factor
View File

@ -64,7 +64,8 @@ M: sqlite-statement bind-tuple ( tuple statement -- )
[ sql-spec-type ] tri 3array [ sql-spec-type ] tri 3array
] with map ] with map
] keep ] keep
[ set-statement-bind-params ] keep bind-statement* ; [ set-statement-bind-params ] keep
t over set-statement-bound? bind-statement* ;
: last-insert-id ( -- id ) : last-insert-id ( -- id )
db get db-handle sqlite3_last_insert_rowid db get db-handle sqlite3_last_insert_rowid

2
extra/db/tuples/tuples-tests.factor
View File

@ -81,7 +81,7 @@ person "PERSON"
1 "billy" 10 3.14 <assigned-person> the-person1 set 1 "billy" 10 3.14 <assigned-person> the-person1 set
2 "johnny" 10 3.14 <assigned-person> the-person2 set 2 "johnny" 10 3.14 <assigned-person> the-person2 set
test-sqlite ! test-sqlite
! test-postgresql ! test-postgresql
TUPLE: paste n summary author channel mode contents timestamp annotations ; TUPLE: paste n summary author channel mode contents timestamp annotations ;