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

changed stream>assoc to return the amount of bytes read from the stream

db4
Sascha Matzke 2009-01-29 13:47:33 +01:00
parent fa8aa747b9
commit f588143082
1 changed files with 3 additions and 9 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

12
bson/reader/reader.factor
View File

@ -194,13 +194,7 @@ M: bson-binary-function element-binary-read ( size type -- quot )
PRIVATE> PRIVATE>
: stream>assoc ( exemplar -- assoc ) : stream>assoc ( exemplar -- assoc bytes-read )
<state> dup state <state> dup state
[ read-int32 >>size read-elements ] with-variable [ read-int32 >>size read-elements ] with-variable
result>> ; [ result>> ] [ read>> ] bi ;
: array>assoc ( array exemplar -- assoc )
[ binary ] dip '[ _ stream>assoc ] with-byte-reader ;
: array>hashtable ( array -- assoc )
H{ } array>assoc ;