bson.writer: make more words private.
parent
27db0b6346
commit
30d9f9e70c
|
@ -13,8 +13,6 @@ IN: bson.writer
|
||||||
CONSTANT: INT32-SIZE 4
|
CONSTANT: INT32-SIZE 4
|
||||||
CONSTANT: INT64-SIZE 8
|
CONSTANT: INT64-SIZE 8
|
||||||
|
|
||||||
PRIVATE>
|
|
||||||
|
|
||||||
TYPED: get-output ( -- stream: byte-vector )
|
TYPED: get-output ( -- stream: byte-vector )
|
||||||
output-stream get ; inline
|
output-stream get ; inline
|
||||||
|
|
||||||
|
@ -32,8 +30,6 @@ TYPED: with-length ( quot -- bytes-written: integer start-index: integer )
|
||||||
: with-length-prefix-excl ( quot: ( .. -- .. ) -- )
|
: with-length-prefix-excl ( quot: ( .. -- .. ) -- )
|
||||||
[ 4 - ] (with-length-prefix) ; inline
|
[ 4 - ] (with-length-prefix) ; inline
|
||||||
|
|
||||||
<PRIVATE
|
|
||||||
|
|
||||||
: write-le ( x n -- )
|
: write-le ( x n -- )
|
||||||
<iota> [ nth-byte write1 ] with each ; inline
|
<iota> [ nth-byte write1 ] with each ; inline
|
||||||
|
|
||||||
|
|
Loading…
Reference in New Issue