bson: remove an unnecessary if* call

`f length 0 =` anyway.

diff --git a/extra/bson/bson.factor b/extra/bson/bson.factor
index 944aaec10b1081186c2dea5ffe9b479eff2db129..221ba22c74965112221355adecfa9f477586f875 100644 (file)
--- a/extra/bson/bson.factor
+++ b/extra/bson/bson.factor
@@ -209,8 +209,7 @@ TYPED: (serialize-code) ( code: code -- )
   [ T_Binary_Custom write1 write ] bi ; inline
 
 : write-string-length ( string -- )
-    [ length>> 1 + ]
-    [ aux>> [ length ] [ 0 ] if* ] bi + write-int32 ; inline
+    [ length>> 1 + ] [ aux>> length ] bi + write-int32 ; inline
 
 TYPED: write-string ( string: string -- )
     dup write-string-length write-cstring ; inline