steve
/
factor
1
0
Fork 0
Code Issues Pull Requests Releases Wiki Activity

added some more inlines to make words infer

db4
Sascha Matzke 2009-03-07 19:08:40 +01:00
parent 26c4aae74b
commit a041fb06dc
2 changed files with 6 additions and 6 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

10
mongodb/benchmark/benchmark.factor
View File

@ -229,27 +229,27 @@ CONSTANT: DOC-LARGE H{ { "base_url" "http://www.example.com/test-me" }
'[ _ swap _ '[ _ swap _
'[ [ [ _ execute ] dip '[ [ [ _ execute ] dip
[ execute ] each _ execute benchmark ] with-result ] each [ execute ] each _ execute benchmark ] with-result ] each
print-separator ] ; print-separator ] ; inline
: run-insert-bench ( doc-word-seq feat-seq -- ) : run-insert-bench ( doc-word-seq feat-seq -- )
"Insert Tests" print "Insert Tests" print
print-separator-bold print-separator-bold
\ insert bench-quot each ; \ insert bench-quot each ; inline
: run-find-one-bench ( doc-word-seq feat-seq -- ) : run-find-one-bench ( doc-word-seq feat-seq -- )
"Query Tests - Find-One" print "Query Tests - Find-One" print
print-separator-bold print-separator-bold
\ find-one bench-quot each ; \ find-one bench-quot each ; inline
: run-find-all-bench ( doc-word-seq feat-seq -- ) : run-find-all-bench ( doc-word-seq feat-seq -- )
"Query Tests - Find-All" print "Query Tests - Find-All" print
print-separator-bold print-separator-bold
\ find-all bench-quot each ; \ find-all bench-quot each ; inline
: run-find-range-bench ( doc-word-seq feat-seq -- ) : run-find-range-bench ( doc-word-seq feat-seq -- )
"Query Tests - Find-Range" print "Query Tests - Find-Range" print
print-separator-bold print-separator-bold
\ find-range bench-quot each ; \ find-range bench-quot each ; inline
: run-benchmarks ( -- ) : run-benchmarks ( -- )

2
mongodb/driver/driver.factor
View File

@ -58,7 +58,7 @@ SYMBOL: mdb-instance
local-address set local-address set
mdb-socket-stream set ] ] dip compose mdb-socket-stream set ] ] dip compose
[ mdb-stream>> [ dispose ] when* ] [ ] cleanup [ mdb-stream>> [ dispose ] when* ] [ ] cleanup
] with-scope ; ] with-scope ; inline
<PRIVATE <PRIVATE