fixed recursive compiler errors

diff --git a/mongodb/tuple/persistent/persistent.factor b/mongodb/tuple/persistent/persistent.factor
index 9b6b8e646e35eb8068b563f4d019f105d1712320..5dfb418c0db050765516e5d8da66eec2a16b2f62 100644 (file)
--- a/mongodb/tuple/persistent/persistent.factor
+++ b/mongodb/tuple/persistent/persistent.factor
@@ -21,16 +21,14 @@ DEFER: mdb-persistent?
 : tuple-instance ( tuple-info -- instance )
     mdbinfo>tuple-class new ; inline 
 
-: [keys>tuple] ( mirror assoc -- quot: ( elt -- ) )
-   '[ dup _ at assoc>tuple swap _ set-at ] ;  
-
 : prepare-assoc>tuple ( assoc -- tuple keylist mirror assoc )
    [ tuple-info tuple-instance dup
      <mirror> [ keys ] keep ] keep swap ; inline
 
 : make-tuple ( assoc -- tuple )
-   prepare-assoc>tuple [keys>tuple] each
-   [ set-persistent ] keep ; inline 
+   prepare-assoc>tuple
+   '[ dup _ at assoc>tuple swap _ set-at ] each
+   [ set-persistent ] keep ; inline recursive
 
 : at+ ( value key assoc -- value )
     2dup key?
@@ -88,5 +86,5 @@ M: tuple tuple>selector ( tuple -- assoc )
     [ [ dup tuple-info?
         [ make-tuple ]
         [ ] if ] [ drop ] recover
-    ] [ ] if ; inline
+    ] [ ] if ; inline recursive