factor: fix some spacing

[factor.git] / extra / mongodb / driver / driver.factor

diff --git a/extra/mongodb/driver/driver.factor b/extra/mongodb/driver/driver.factor
index cd9fb587f7dd708aa6e0d74a6448851bca558d06..cfc0a84829055fc356624414c99a7f87448145f4 100644 (file)
--- a/extra/mongodb/driver/driver.factor
+++ b/extra/mongodb/driver/driver.factor
@@ -109,9 +109,9 @@ SYNTAX: r/
     H{ } clone [ set-at ] keep ;
 
 : <mdb> ( db host port -- mdb )
-   <inet> t [ <mdb-node> ] keep
-   H{ } clone [ set-at ] keep <mdb-db>
-   [ verify-nodes ] keep ;
+    <inet> t [ <mdb-node> ] keep
+    H{ } clone [ set-at ] keep <mdb-db>
+    [ verify-nodes ] keep ;
 
 GENERIC: create-collection ( name/collection -- )
 
@@ -155,9 +155,11 @@ M: mdb-collection create-collection ( collection -- )
 
 : (ensure-collection) ( collection mdb-instance -- collection )
     ensure-collection-map [ dup ] dip key?
-    [ ] [ [ ensure-valid-collection-name ]
-          [ create-collection ]
-          [ ] tri ] if ;
+    [ ] [
+        [ ensure-valid-collection-name ]
+        [ create-collection ]
+        [ ] tri
+    ] if ;
 
 : reserved-namespace? ( name -- ? )
     [ "$cmd" = ] [ "system" head? ] bi or ;