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

And more stack effect fixes

release
slava 2006-09-04 01:13:07 +00:00
parent 8284278bf6
commit a798cd4f5c
1 changed files with 5 additions and 5 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

10
contrib/sqlite/test.factor
View File

@ -46,16 +46,16 @@ USE: prettyprint
sqlite-close ; sqlite-close ;
: find-person ( name -- ) : find-person ( name -- )
test.db sqlite-open ( name db ) test.db sqlite-open ! name db
dup "select * from test where name=?" sqlite-prepare ( name db stmt ) dup "select * from test where name=?" sqlite-prepare ! name db stmt
[ rot 1 swap sqlite-bind-text ] keep ( db stmt ) [ rot 1 swap sqlite-bind-text ] keep ! db stmt
[ [ 1 column-text . ] sqlite-each ] keep [ [ 1 column-text . ] sqlite-each ] keep
sqlite-finalize sqlite-finalize
sqlite-close ; sqlite-close ;
: find-all ( -- ) : find-all ( -- )
test.db sqlite-open ( db ) test.db sqlite-open ! db
dup "select * from test" sqlite-prepare ( db stmt ) dup "select * from test" sqlite-prepare ! db stmt
[ [ [ 0 column-text ] keep 1 column-text curry ] sqlite-map ] keep [ [ [ 0 column-text ] keep 1 column-text curry ] sqlite-map ] keep
sqlite-finalize sqlite-finalize
swap sqlite-close ; swap sqlite-close ;