From a041fb06dc23528f7195b3716dd982c555bf89d6 Mon Sep 17 00:00:00 2001 From: Sascha Matzke Date: Sat, 7 Mar 2009 19:08:40 +0100 Subject: [PATCH] added some more inlines to make words infer --- mongodb/benchmark/benchmark.factor | 10 +++++----- mongodb/driver/driver.factor | 2 +- 2 files changed, 6 insertions(+), 6 deletions(-) diff --git a/mongodb/benchmark/benchmark.factor b/mongodb/benchmark/benchmark.factor index c2935231d1..4f7fc644d6 100644 --- a/mongodb/benchmark/benchmark.factor +++ b/mongodb/benchmark/benchmark.factor @@ -229,27 +229,27 @@ CONSTANT: DOC-LARGE H{ { "base_url" "http://www.example.com/test-me" } '[ _ swap _ '[ [ [ _ execute ] dip [ execute ] each _ execute benchmark ] with-result ] each - print-separator ] ; + print-separator ] ; inline : run-insert-bench ( doc-word-seq feat-seq -- ) "Insert Tests" print print-separator-bold - \ insert bench-quot each ; + \ insert bench-quot each ; inline : run-find-one-bench ( doc-word-seq feat-seq -- ) "Query Tests - Find-One" print print-separator-bold - \ find-one bench-quot each ; + \ find-one bench-quot each ; inline : run-find-all-bench ( doc-word-seq feat-seq -- ) "Query Tests - Find-All" print print-separator-bold - \ find-all bench-quot each ; + \ find-all bench-quot each ; inline : run-find-range-bench ( doc-word-seq feat-seq -- ) "Query Tests - Find-Range" print print-separator-bold - \ find-range bench-quot each ; + \ find-range bench-quot each ; inline : run-benchmarks ( -- ) diff --git a/mongodb/driver/driver.factor b/mongodb/driver/driver.factor index 38199bedaf..cf0bf8ac06 100644 --- a/mongodb/driver/driver.factor +++ b/mongodb/driver/driver.factor @@ -58,7 +58,7 @@ SYMBOL: mdb-instance local-address set mdb-socket-stream set ] ] dip compose [ mdb-stream>> [ dispose ] when* ] [ ] cleanup - ] with-scope ; + ] with-scope ; inline