From ed7ab6948ea0de76cadf6a6b854be52de356f48a Mon Sep 17 00:00:00 2001 From: eknauel Date: Mon, 22 Nov 2004 12:24:54 +0000 Subject: [PATCH] fix optional txn-id parameter for some functions --- scheme/bdb.scm | 6 +++--- 1 file changed, 3 insertions(+), 3 deletions(-) diff --git a/scheme/bdb.scm b/scheme/bdb.scm index ae8c1aa..25232f4 100644 --- a/scheme/bdb.scm +++ b/scheme/bdb.scm @@ -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))))