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

fixed inline quots

Sascha Matzke 2010-03-15 06:44:23 +01:00
parent c08e046cb4
commit 2916e0bd28
1 changed files with 2 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

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

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