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

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
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
scheme/bdb.scm
View File

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