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

Revert "db: don't nest transactions. 

This reverts commit e599a83de7.
db4
John Benediktsson 2012-09-26 13:29:40 -07:00
parent 14c6bad2f6
commit 41227954e7
1 changed files with 4 additions and 7 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

11
basis/db/db.factor
View File

@ -145,11 +145,8 @@ M: db-connection rollback-transaction ( -- ) "ROLLBACK" sql-command ;
: in-transaction? ( -- ? ) in-transaction get ; : in-transaction? ( -- ? ) in-transaction get ;
: (with-transaction) ( quot -- )
t in-transaction [
begin-transaction [ ] [ rollback-transaction ] cleanup
commit-transaction
] with-variable ; inline
: with-transaction ( quot -- ) : with-transaction ( quot -- )
in-transaction get [ (with-transaction) ] unless ; inline t in-transaction [
begin-transaction
[ ] [ rollback-transaction ] cleanup commit-transaction
] with-variable ; inline