(with-transaction) ( quot -- )

Vocabulary

db.private

Inputs

quot

an object

Outputs

None

Definition

USING: continuations db namespaces ;

IN: db.private

: (with-transaction) ( quot -- )
    t in-transaction [
        begin-transaction [ ] [ rollback-transaction ] cleanup
        commit-transaction
    ] with-variable ; inline