diff --git a/bson/reader/reader.factor b/bson/reader/reader.factor index 94728b2622..20a0e5fbc0 100644 --- 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 7e5bd81f58..7477ee5486 100644 --- 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 [ ] 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 d488dcc872..42ee62f1d5 100644 --- 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 1 >>return# send-query-plain - objects>> first check-ok - [ drop ] [ throw ] if ; + ] keep 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 ] 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 6d4300fa50..001e8443e4 100644 --- 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>