factor: fix some spacing

[factor.git] / extra / bson / writer / writer.factor

diff --git a/extra/bson/writer/writer.factor b/extra/bson/writer/writer.factor
index e69166c74e35126eaedb84286355fea4c13bce73..5fed178e73fd628b4c3dbb93608a008cdb4d0293 100644 (file)
--- a/extra/bson/writer/writer.factor
+++ b/extra/bson/writer/writer.factor
@@ -60,11 +60,11 @@ TYPED: write-byte-array ( binary: byte-array -- )
     [ T_Binary_Default write1 write ] bi ; inline
 
 TYPED: write-mdbregexp ( regexp: mdbregexp -- )
-   [ regexp>> write-cstring ]
-   [ options>> write-cstring ] bi ; inline
+    [ regexp>> write-cstring ]
+    [ options>> write-cstring ] bi ; inline
 
 TYPED: write-sequence ( array: sequence -- )
-   '[
+    '[
         _ [ number>string swap write-pair ] each-index
         write-eoo
     ] with-length-prefix ; inline recursive
@@ -85,7 +85,7 @@ UNION: hashtables hashtable linked-assoc ;
 TYPED: write-assoc ( assoc: hashtables -- )
     '[ _ [ write-oid-field ] [
             [ skip-field? [ 2drop ] [ write-pair ] if ] assoc-each
-         ] bi write-eoo
+        ] bi write-eoo
     ] with-length-prefix ; inline recursive
 
 UNION: code word quotation ;