fix cursor-put: encode flags correctly

This commit is contained in:
eknauel 2005-02-14 12:33:59 +00:00
parent d110aa567d
commit 0b9248184f
1 changed files with 1 additions and 1 deletions

View File

@ -1062,7 +1062,7 @@
(define (cursor-put cursor key data . args)
(let-optionals args
((flags (or (current-flags) '())))
((flags (flags->value (or (current-flags) '()))))
(cond
((bdb-cursor-put cursor key data flags)
=> raise-bdb-condition))))