removed some more inlines

bson/reader/reader.factor

@@ -15,7 +15,7 @@ TUPLE: state
     [ state new ] dip
     [ clone >>exemplar ] keep
     clone [ >>result ] [ V{ } clone [ push ] keep >>scope ] bi
-    V{ } clone [ T_Object "" element boa swap push ] keep >>element ; inline
+    V{ } clone [ T_Object "" element boa swap push ] keep >>element ; 
 
 PREDICATE: bson-eoo     < integer T_EOO = ;
 PREDICATE: bson-not-eoo < integer T_EOO > ;

mongodb/connection/connection.factor

@@ -84,7 +84,7 @@ CONSTRUCTOR: mdb-connection ( instance -- mdb-connection ) ;
     "nonce" get-nonce 2array
     3array >hashtable
     [ [ "nonce" ] dip at calculate-key-digest "key" ] keep
-    [ set-at ] keep ; inline
+    [ set-at ] keep ; 
     
 : perform-authentication ( --  )
     cmd-collection build-auth-query send-query-1result
@@ -137,7 +137,7 @@ PRIVATE>
 : mdb-open ( mdb -- mdb-connection )
     clone [ <mdb-connection> ] keep
     master-node open-connection
-    [ authenticate-connection ] keep ; inline
+    [ authenticate-connection ] keep ; 
 
 : mdb-close ( mdb-connection -- )
      [ dispose f ] change-handle drop ;

mongodb/driver/driver.factor

@@ -84,9 +84,7 @@ M: mdb-collection create-collection ( mdb-collection -- )
              [ [ size>> "size" ] dip set-at ]
              [ [ max>> "max" ] dip set-at ] 2tri ] when
         ] 2bi
-    ] keep <mdb-query-msg> 1 >>return# send-query-plain
-    objects>> first check-ok
-    [ drop ] [ throw ] if ;
+    ] keep <mdb-query-msg> 1 >>return# send-query-plain drop ;
 
 : load-collection-list ( -- collection-list )
     namespaces-collection
@@ -107,7 +105,7 @@ USE: tools.continuations
       [ [ "name" ] dip at "." split second <mdb-collection> ] map
       over '[ [ ] [ name>> ] bi _ set-at ] each ] [ ] if
     [ dup ] dip key? [ drop ]
-    [ [ ensure-valid-collection-name ] keep create-collection ] if ; inline
+    [ [ ensure-valid-collection-name ] keep create-collection ] if ; 
 
 MEMO: reserved-namespace? ( name -- ? )
     [ "$cmd" = ] [ "system" head? ] bi or ;
@@ -118,7 +116,7 @@ MEMO: check-collection ( collection -- fq-collection )
     [ nip ] [ drop ] if
     [ ] [ reserved-namespace? ] bi
     [ [ (ensure-collection) ] keep ] unless
-    [ mdb-instance name>> ] dip "%s.%s" sprintf ; inline
+    [ mdb-instance name>> ] dip "%s.%s" sprintf ; 
 
 : fix-query-collection ( mdb-query -- mdb-query )
     [ check-collection ] change-collection ; inline

mongodb/operations/operations.factor

@@ -161,7 +161,7 @@ USE: tools.walker
           [ query>> "query" selector set-at ]
         } cleave
         selector
-    ] ; inline flushable    
+    ] ;     
 
 PRIVATE>