steve
/
factor
1
0
Fork 0
Code Issues Pull Requests Releases Wiki Activity

bson.writer: make more words private.

factor-shell
John Benediktsson 2018-01-22 16:30:03 -08:00
parent 27db0b6346
commit 30d9f9e70c
1 changed files with 0 additions and 4 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
extra/bson/writer/writer.factor
View File

@ -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