steve
/
factor
1
0
Fork 0
Code Issues Pull Requests Releases Wiki Activity

forestdb.lib: iterator needs to call free on docs.

db4
Doug Coleman 2014-11-07 02:23:19 -08:00
parent 2f2cd7b299
commit 24c6bbc2a8
1 changed files with 5 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

8
extra/forestdb/lib/lib.factor
View File

@ -259,9 +259,11 @@ T{ doc
dup length fdb_iterator_seek fdb-check-error ; dup length fdb_iterator_seek fdb-check-error ;
: with-fdb-iterator ( start-key end-key fdb_iterator_opt_t iterator-init iterator-next quot: ( obj -- ) -- ) : with-fdb-iterator ( start-key end-key fdb_iterator_opt_t iterator-init iterator-next quot: ( obj -- ) -- )
[ '[ _ _ _ _ execute ] call ] 2dip pick '[ [ execute ] 2dip
[ _ handle>> _ execute [ [ @ ] when* ] keep ] loop '[
_ &dispose drop _ &dispose handle>> [
_ execute [ _ with-doc t ] [ f ] if*
] curry loop
] with-destructors ; inline ] with-destructors ; inline
: with-fdb-normal-iterator ( start-key end-key quot -- ) : with-fdb-normal-iterator ( start-key end-key quot -- )