fixed inline quots

diff --git a/extra/bson/writer/writer.factor b/extra/bson/writer/writer.factor
index ffe3d44577528c1a80bf9bd708634d6ab0fd0173..f8eca037e6873c97a9548a5be67a97a577a16e84 100644 (file)
--- a/extra/bson/writer/writer.factor
+++ b/extra/bson/writer/writer.factor
@@ -25,10 +25,10 @@ TYPED: with-length ( quot -- bytes-written: integer start-index: integer )
     [ [ B{ 0 0 0 0 } write ] prepose with-length ] dip swap
     [ call output-stream get underlying>> ] dip set-alien-unsigned-4 ; inline
 
-: with-length-prefix ( quot: ( -- ) -- )
+: with-length-prefix ( quot: ( .. -- .. ) -- )
     [ ] (with-length-prefix) ; inline
     
-: with-length-prefix-excl ( quot: ( -- ) -- )
+: with-length-prefix-excl ( quot: ( .. -- .. ) -- )
     [ INT32-SIZE - ] (with-length-prefix) ; inline
     
 <PRIVATE