From 536933fafc002383f7b8456ad84bc79d647bdbf4 Mon Sep 17 00:00:00 2001
From: Sascha Matzke <sascha.matzke@didolo.org>
Date: Mon, 9 Mar 2009 22:58:19 +0100
Subject: [PATCH] some formatting

---
 mongodb/driver/driver.factor | 13 ++++++-------
 1 file changed, 6 insertions(+), 7 deletions(-)

diff --git a/mongodb/driver/driver.factor b/mongodb/driver/driver.factor
index cf0bf8ac06..f1dc204d1c 100644
--- a/mongodb/driver/driver.factor
+++ b/mongodb/driver/driver.factor
@@ -52,13 +52,12 @@ SYMBOL: mdb-instance
     nodes>> [ f ] dip at inet>> ;
 
 : with-db ( mdb quot: ( -- * ) -- * )
-    [ [ '[ _ [ mdb-instance set ensure-buffer ] keep master>>
-           [ remote-address set ] keep
-           binary <client>
-           local-address set
+    [ [ '[ ensure-buffer _ [ mdb-instance set ] keep
+           master>> [ remote-address set ] keep
+           binary <client> local-address set
            mdb-socket-stream set ] ] dip compose
-      [ mdb-stream>> [ dispose ] when* ] [ ] cleanup
-    ] with-scope ; inline
+      [ mdb-stream>> [ dispose ] when* ]
+      [ ] cleanup ] with-scope ; inline
 
 <PRIVATE
 
@@ -189,7 +188,7 @@ MEMO: ensure-collection ( collection -- fq-collection )
 GENERIC# limit 1 ( mdb-query limit# -- mdb-query )
 M: mdb-query-msg limit ( query limit# -- mdb-query )
     >>return# ; inline
- 
+
 GENERIC# skip 1 ( mdb-query skip# -- mdb-query )
 M: mdb-query-msg skip ( query skip# -- mdb-query )
     >>skip# ; inline