rewrote (write-message)

2009-01-31 16:04:19 +01:00 · 2009-01-31 16:04:19 +01:00 · 5dacbdaace
parent 9838b6fee1
commit 5dacbdaace
1 changed files with 2 additions and 2 deletions
--- a/mongodb/msg/msg.factor
+++ b/mongodb/msg/msg.factor
@ -252,8 +252,8 @@ PRIVATE>
 <PRIVATE

 : (write-message) ( message quot -- )
-     [ binary ] dip with-byte-writer dup
-     [ length write-header ] dip 
+     [ binary ] dip with-byte-writer 
+     [ length write-header ] keep 
     write flush ; inline

 PRIVATE>