<tokyo-abstractdb> ( name -- tokyo-abstractdb )

Vocabulary

tokyo.abstractdb

Inputs

name

an object

Outputs

tokyo-abstractdb

an object

Definition

USING: accessors kernel tokyo.alien.tcadb ;

IN: tokyo.abstractdb

: <tokyo-abstractdb> ( name -- tokyo-abstractdb )
    tcadbnew [ swap tcadbopen drop ] keep tokyo-abstractdb new
    [ handle<< ] keep ;