11 lines
364 B
Factor
11 lines
364 B
Factor
! Copyright (C) 2009 Bruno Deferrari
|
|
! See http://factorcode.org/license.txt for BSD license.
|
|
USING: accessors kernel tokyo.alien.tcrdb tokyo.assoc-functor ;
|
|
IN: tokyo.remotedb
|
|
|
|
<< "tcrdb" "remotedb" define-tokyo-assoc-api >>
|
|
|
|
: <tokyo-remotedb> ( host port -- tokyo-remotedb )
|
|
[ tcrdbnew dup ] 2dip tcrdbopen drop
|
|
tokyo-remotedb new [ (>>handle) ] keep ;
|