fix cursor-put: encode flags correctly
This commit is contained in:
parent
d110aa567d
commit
0b9248184f
|
@ -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))))
|
||||
|
|
Loading…
Reference in New Issue