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

fix commit-transaction

This commit is contained in:
eknauel 2004-11-30 09:50:07 +00:00
parent 8c5b4602cb
commit 244453c1dc
1 changed files with 1 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
scheme/bdb.scm
View File

@ -1104,7 +1104,7 @@
(define (commit-transaction txn-id . args) (define (commit-transaction txn-id . args)
(let-optionals args (let-optionals args
((flags (or (current-flags) '()))) ((flags (or (current-flags) '())))
(let ((result (bdb-txn-commit-int txn-id (flags->value)))) (let ((result (bdb-txn-commit-int txn-id (flags->value flags))))
(if (integer? result) (if (integer? result)
(raise-bdb-condition result) (raise-bdb-condition result)
(values))))) (values)))))