steve
/
factor
1
0
Fork 0
Code Issues Pull Requests Releases Wiki Activity

Merge commit 'f742a8f9db55ce2c9184803ac278af5ec107b15f' 

Conflicts:
	work/mongodb/persistent/persistent.factor
db4
Sascha Matzke 2008-12-27 12:13:33 +01:00
parent 34bf034b92 88d337a001
commit eaa88c90ab
1 changed files with 10 additions and 7 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

17
mongodb/persistent/persistent.factor
View File

@ -10,7 +10,10 @@ SLOT: _p_info
TUPLE: oid { a initial: 0 } { b initial: 0 } ; TUPLE: oid { a initial: 0 } { b initial: 0 } ;
TUPLE: persistent-info type vocab collection dirty? mt ; : MDB_CLASS ( -- string ) "p_class" ; inline
: MDB_VOCAB ( -- string ) "p_vocab" ; inline
: MDB_MODIF ( -- string ) "p_mt" ; inline
: MDB_CREAT ( -- string ) "p_ct" ; inline
<PRIVATE <PRIVATE
@ -44,9 +47,9 @@ M: tuple-class persistent-tuple-class ( class -- class' )
GENERIC: make-persistent ( tuple -- 'tuple ) GENERIC: make-persistent ( tuple -- 'tuple )
M: tuple make-persistent ( tuple -- 'tuple ) ! M: tuple make-persistent ( tuple -- 'tuple )
[let* | tuple [ ] ! [let* | tuple [ ]
class [ tuple class ] ! class [ tuple class ]
'tuple [ class persistent-tuple-class new ] | ! 'tuple [ class persistent-tuple-class new ] |
!
] ; ! ] ;