]> gitweb.factorcode.org Git - factor.git/blob - extra/tokyo/abstractdb/abstractdb.factor
Language change: tuple slot setter words with stack effect ( value object -- ) are...
[factor.git] / 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 ;