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