16 lines
250 B
Factor
16 lines
250 B
Factor
|
USING: mongodb.persistent ;
|
||
|
|
|
||
|
|
IN: mongodb
|
||
|
|
|
||
|
|
|
||
|
|
|
||
|
|
GENERIC: store ( tuple/ht -- tuple/ht )
|
||
|
|
GENERIC: load ( example -- tuple/ht )
|
||
|
|
|
||
|
|
M: tuple store ( tuple -- tuple )
|
||
|
|
[ check-persistent-tuple ] keep ;
|
||
|
|
|
||
|
|
M: persistent-tuple store ( ptuple -- ptuple )
|
||
|
|
;
|
||
|
|
|