with-gdbm ( gdbm quot -- )
GNU Database Manager

Prev:	<gdbm> ( -- gdbm )
Next:	gdbm-insert ( key content -- )

Vocabulary
gdbm

Inputs

gdbm	a database configuration object
quot	a quotation

Outputs
None

Word description
Calls the quotation with a database bound to current-dbf symbol.

Definition

USING: destructors gdbm.private kernel namespaces ;

IN: gdbm

: with-gdbm ( gdbm quot -- )
    [ [ gdbm-open &gdbm-close current-dbf ] curry ] dip
    [ with-variable ] curry compose with-destructors ; inline