From 88d337a001ef475c0f3640115c4ed27b6314aa15 Mon Sep 17 00:00:00 2001
From: Sascha Matzke <sascha.matzke@didolo.org>
Date: Sat, 27 Dec 2008 12:03:30 +0100
Subject: [PATCH] added _p_info hashtable constant keys commented
 make-persistent cause it's not working, yet

---
 mongodb/persistent/persistent.factor | 15 ++++++++++++++-
 1 file changed, 14 insertions(+), 1 deletion(-)

diff --git a/mongodb/persistent/persistent.factor b/mongodb/persistent/persistent.factor
index 08837ed237..2e76a3f85b 100644
--- a/mongodb/persistent/persistent.factor
+++ b/mongodb/persistent/persistent.factor
@@ -10,7 +10,10 @@ SLOT: _p_info
 
 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
 
@@ -40,3 +43,13 @@ M: tuple-class persistent-tuple-class ( class -- class' )
     [ "%s_%s" sprintf ] dip swap dup   ! class new_name new_name
     P_VOCAB lookup dup                 ! class new_name vo/f vo/f
     [ [ drop drop ] dip ] [ drop define-persistent-tuple ] if ;
+
+
+GENERIC: make-persistent ( tuple -- 'tuple )
+
+! M: tuple make-persistent ( tuple -- 'tuple )
+!    [let* | tuple [ ] 
+!            class [ tuple class ]
+!            'tuple [ class persistent-tuple-class new ] |
+!            
+!            ] ; 
\ No newline at end of file