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

db: don't nest transactions.

db4
John Benediktsson 2012-09-26 10:35:22 -07:00
parent 9f4f76ab8c
commit 14c6bad2f6
1 changed files with 6 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

9
basis/db/db.factor
View File

@ -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