removed some more inlines

db4
Sascha Matzke 2009-04-25 10:03:09 +02:00
parent 7b0d5b2432
commit d6cb050942
4 changed files with 7 additions and 9 deletions

View File

@ -15,7 +15,7 @@ TUPLE: state
[ state new ] dip [ state new ] dip
[ clone >>exemplar ] keep [ clone >>exemplar ] keep
clone [ >>result ] [ V{ } clone [ push ] keep >>scope ] bi 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-eoo < integer T_EOO = ;
PREDICATE: bson-not-eoo < integer T_EOO > ; PREDICATE: bson-not-eoo < integer T_EOO > ;

View File

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

View File

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

View File

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