modified version

2008-12-27 12:11:15 +01:00 · 2008-12-27 12:11:15 +01:00 · 34bf034b92
parent 752c637cb8
commit 34bf034b92
1 changed files with 10 additions and 0 deletions
--- a/mongodb/persistent/persistent.factor
+++ b/mongodb/persistent/persistent.factor
@ -40,3 +40,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 ] |
+            
+            ] ;