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

fix optional txn-id parameter for some functions

This commit is contained in:
eknauel 2004-11-22 12:24:54 +00:00
parent a61acd45e9
commit ed7ab6948e
1 changed files with 3 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

6
scheme/bdb.scm
View File

@ -401,7 +401,7 @@
(define (remove-database database-env file-name database-name . args)
(let-optionals args
((txn-id (or (current-transaction-id) '()))
((txn-id (or (current-transaction-id) #f))
(flags (or (current-flags) '())))
(cond
((bdb-db-remove-int database-env txn-id file-name database-name
@ -421,7 +421,7 @@
;; untested
(define (rename-database database-env file-name database-name new-name . args)
(let-optionals args
((txn-id (or (current-transaction-id) '()))
((txn-id (or (current-transaction-id) #f))
(flags (or (current-flags) '())))
(cond
((bdb-db-rename-int database-env txn-id file-name database-name
@ -962,7 +962,7 @@
(define (make-cursor db-handle . args)
(let-optionals args
((txn-id (or (current-transaction-id) '()))
((txn-id (or (current-transaction-id) #f))
(flags (or (current-flags) '())))
(let ((result
(bdb-create-cursor-int db-handle txn-id (flags->value flags))))