extra/tokyo/abstractdb/abstractdb.factor

   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 ;
   4 IN: tokyo.abstractdb
   5
   6 << "tcadb" "abstractdb" define-tokyo-assoc-api >>
   7
   8 : <tokyo-abstractdb> ( name -- tokyo-abstractdb )
   9     tcadbnew [ swap tcadbopen drop ] keep
  10     tokyo-abstractdb new [ (>>handle) ] keep ;