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

some formatting

db4
Sascha Matzke 2009-03-09 22:58:19 +01:00
parent a041fb06dc
commit 536933fafc
1 changed files with 6 additions and 7 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

13
mongodb/driver/driver.factor
View File

@ -52,13 +52,12 @@ SYMBOL: mdb-instance
nodes>> [ f ] dip at inet>> ; nodes>> [ f ] dip at inet>> ;
: with-db ( mdb quot: ( -- * ) -- * ) : with-db ( mdb quot: ( -- * ) -- * )
[ [ '[ _ [ mdb-instance set ensure-buffer ] keep master>> [ [ '[ ensure-buffer _ [ mdb-instance set ] keep
[ remote-address set ] keep master>> [ remote-address set ] keep
binary <client> binary <client> 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* ]
] with-scope ; inline [ ] cleanup ] with-scope ; inline
<PRIVATE <PRIVATE
@ -189,7 +188,7 @@ MEMO: ensure-collection ( collection -- fq-collection )
GENERIC# limit 1 ( mdb-query limit# -- mdb-query ) GENERIC# limit 1 ( mdb-query limit# -- mdb-query )
M: mdb-query-msg limit ( query limit# -- mdb-query ) M: mdb-query-msg limit ( query limit# -- mdb-query )
>>return# ; inline >>return# ; inline
GENERIC# skip 1 ( mdb-query skip# -- mdb-query ) GENERIC# skip 1 ( mdb-query skip# -- mdb-query )
M: mdb-query-msg skip ( query skip# -- mdb-query ) M: mdb-query-msg skip ( query skip# -- mdb-query )
>>skip# ; inline >>skip# ; inline