! Copyright (C) 2008 Slava Pestov.
! See http://factorcode.org/license.txt for BSD license.
USING: accessors kernel arrays namespaces sequences continuations
io.pools db fry ;
IN: db.pools

TUPLE: db-pool < pool db ;

: <db-pool> ( db -- pool )
    db-pool <pool>
        swap >>db ;

: with-db-pool ( db quot -- )
    [ <db-pool> ] dip with-pool ; inline

M: db-pool make-connection ( pool -- )
    db>> db-open ;

: with-pooled-db ( pool quot -- )
    '[ db _ with-variable ] with-pooled-connection ; inline