1 ! Copyright (C) 2009 Bruno Deferrari
2 ! See http://factorcode.org/license.txt for BSD license.
3 USING: accessors kernel tokyo.alien.tcadb tokyo.assoc-functor ;
6 << "tcadb" "abstractdb" define-tokyo-assoc-api >>
8 : <tokyo-abstractdb> ( name -- tokyo-abstractdb )
9 tcadbnew [ swap tcadbopen drop ] keep
10 tokyo-abstractdb new [ handle<< ] keep ;