removed some more inlines

diff --git a/bson/reader/reader.factor b/bson/reader/reader.factor
index 94728b2622b90e68fb4ebb2e26b44239af3ecf86..20a0e5fbc0c42ee9a76cf8193c23a62ce5dbabd4 100644 (file)
--- a/bson/reader/reader.factor
+++ b/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 > ;

diff --git a/mongodb/connection/connection.factor b/mongodb/connection/connection.factor
index 7e5bd81f58423d16fdf7685a249ab0c1860216f9..7477ee5486daac12bb28f95a2f2265e773b3ae83 100644 (file)
--- a/mongodb/connection/connection.factor
+++ b/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 ;

diff --git a/mongodb/driver/driver.factor b/mongodb/driver/driver.factor
index d488dcc872a68c7ea398bfb5324e99ec24067474..42ee62f1d5dcf52f18aa1754128f29c66bdc6603 100644 (file)
--- a/mongodb/driver/driver.factor
+++ b/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

diff --git a/mongodb/operations/operations.factor b/mongodb/operations/operations.factor
index 6d4300fa50c73345175d3629a43c96e2256e20d8..001e8443e4785c1926b322328384dc3dafaa5aaa 100644 (file)
--- a/mongodb/operations/operations.factor
+++ b/mongodb/operations/operations.factor
@@ -161,7 +161,7 @@ USE: tools.walker
           [ query>> "query" selector set-at ]
         } cleave
         selector
-    ] ; inline flushable    
+    ] ;     
 
 PRIVATE>