db: don't nest transactions.
parent
9f4f76ab8c
commit
14c6bad2f6
|
@ -145,8 +145,11 @@ M: db-connection rollback-transaction ( -- ) "ROLLBACK" sql-command ;
|
||||||
|
|
||||||
: in-transaction? ( -- ? ) in-transaction get ;
|
: in-transaction? ( -- ? ) in-transaction get ;
|
||||||
|
|
||||||
: with-transaction ( quot -- )
|
: (with-transaction) ( quot -- )
|
||||||
t in-transaction [
|
t in-transaction [
|
||||||
begin-transaction
|
begin-transaction [ ] [ rollback-transaction ] cleanup
|
||||||
[ ] [ rollback-transaction ] cleanup commit-transaction
|
commit-transaction
|
||||||
] with-variable ; inline
|
] with-variable ; inline
|
||||||
|
|
||||||
|
: with-transaction ( quot -- )
|
||||||
|
in-transaction get [ (with-transaction) ] unless ; inline
|
||||||
|
|
Loading…
Reference in New Issue