2009-06-16 22:29:09 -04:00
|
|
|
! Copyright (C) 2009 Bruno Deferrari
|
|
|
|
|
! See http://factorcode.org/license.txt for BSD license.
|
2009-06-18 17:55:26 -04:00
|
|
|
USING: accessors kernel tokyo.alien.tcadb tokyo.assoc-functor ;
|
2009-06-17 19:23:39 -04:00
|
|
|
IN: tokyo.abstractdb
|
2009-06-16 22:29:09 -04:00
|
|
|
|
2009-06-18 17:55:26 -04:00
|
|
|
<< "tcadb" "abstractdb" define-tokyo-assoc-api >>
|
2009-06-16 22:29:09 -04:00
|
|
|
|
|
|
|
|
: <tokyo-abstractdb> ( name -- tokyo-abstractdb )
|
|
|
|
|
tcadbnew [ swap tcadbopen drop ] keep
|
2010-05-05 16:52:54 -04:00
|
|
|
tokyo-abstractdb new [ handle<< ] keep ;
|
