11 lines
368 B
Factor
11 lines
368 B
Factor
! Copyright (C) 2009 Bruno Deferrari
|
|
! See http://factorcode.org/license.txt for BSD license.
|
|
USING: accessors kernel tokyo.alien.tcadb tokyo.assoc-functor ;
|
|
IN: tokyo.abstractdb
|
|
|
|
<< "tcadb" "abstractdb" define-tokyo-assoc-api >>
|
|
|
|
: <tokyo-abstractdb> ( name -- tokyo-abstractdb )
|
|
tcadbnew [ swap tcadbopen drop ] keep
|
|
tokyo-abstractdb new [ handle<< ] keep ;
|