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

Fix parameter ordering

db4
Slava Pestov 2008-05-25 19:45:21 -05:00
parent 5cb13132af
commit a84880d770
2 changed files with 5 additions and 5 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
extra/db/db.factor
View File

@ -127,7 +127,7 @@ M: nonthrowable execute-statement* ( statement type -- )
: query-map ( statement quot -- seq ) : query-map ( statement quot -- seq )
accumulator >r query-each r> { } like ; inline accumulator >r query-each r> { } like ; inline
: with-db ( db seq quot -- ) : with-db ( seq class quot -- )
>r make-db db-open db r> >r make-db db-open db r>
[ db get swap [ drop ] prepose with-disposal ] curry with-variable ; [ db get swap [ drop ] prepose with-disposal ] curry with-variable ;
inline inline

8
extra/db/pools/pools.factor
View File

@ -6,16 +6,16 @@ IN: db.pools
TUPLE: db-pool < pool db params ; TUPLE: db-pool < pool db params ;
: <db-pool> ( db params -- pool ) : <db-pool> ( params db -- pool )
db-pool <pool> db-pool <pool>
swap >>params swap >>db
swap >>db ; swap >>params ;
: with-db-pool ( db params quot -- ) : with-db-pool ( db params quot -- )
>r <db-pool> r> with-pool ; inline >r <db-pool> r> with-pool ; inline
M: db-pool make-connection ( pool -- ) M: db-pool make-connection ( pool -- )
[ db>> ] [ params>> ] bi make-db db-open ; [ params>> ] [ db>> ] bi make-db db-open ;
: with-pooled-db ( pool quot -- ) : with-pooled-db ( pool quot -- )
[ db swap with-variable ] curry with-pooled-connection ; inline [ db swap with-variable ] curry with-pooled-connection ; inline