scsh-conservatory
/
scsh-bdb
1
0
Fork 0
Code Issues Pull Requests Packages Projects Releases Wiki Activity

added with-transaction

This commit is contained in:
eknauel 2004-11-15 14:09:48 +00:00
parent dcce8de4de
commit bba2de6fae
1 changed files with 8 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

10
scheme/bdb.scm
View File

@ -41,15 +41,21 @@
(define (with-database-flags flags thunk)
(let-fluid $current-flags flags thunk))
(define (as-transaction options proc)
(define (as-transaction db-env flags proc)
(let-fluid
$current-transaction-id
(begin-transaction options)
(begin-transaction db-env flags)
(lambda ()
(proc (lambda ()
(abort-transaction (current-transaction-id))))
(commit-transaction (current-transaction-id)))))
(define (with-transaction transaction proc)
(let-fluid
$current-transaction-id
transaction
proc))
;; constants
(define (berkeley-db-version)