From 62846be4f6155f3e572ac277b4460dcb5cbf23bf Mon Sep 17 00:00:00 2001
From: Sascha Matzke <sascha.matzke@didolo.org>
Date: Fri, 1 May 2009 16:23:06 +0200
Subject: [PATCH] removed trash / reformatted some lines

---
 extra/bson/writer/writer.factor | 10 +++-------
 1 file changed, 3 insertions(+), 7 deletions(-)

diff --git a/extra/bson/writer/writer.factor b/extra/bson/writer/writer.factor
index ae12ca0a03..1b9d45b124 100644
--- a/extra/bson/writer/writer.factor
+++ b/extra/bson/writer/writer.factor
@@ -6,11 +6,8 @@ io.encodings.utf8 io.streams.byte-array kernel math math.parser
 namespaces quotations sequences sequences.private serialize strings
 words combinators.short-circuit literals ;
 
-
 IN: bson.writer
 
-#! Writes the object out to a byte-vector in BSON format
-
 <PRIVATE
 
 SYMBOL: shared-buffer 
@@ -24,10 +21,9 @@ CONSTANT: INT64-SIZE 8
     [ 8192 <byte-vector> [ shared-buffer set ] keep ] unless* ; inline
 
 : >le-stream ( x n -- )
-    ! >le write  
-    swap '[ _ swap nth-byte 0 B{ 0 }
-            [ set-nth-unsafe ] keep write ] each
-            ; inline
+    swap
+    '[ _ swap nth-byte 0 B{ 0 }
+       [ set-nth-unsafe ] keep write ] each ; inline
 
 PRIVATE>