use encode-string to write utf8 strings to the stream

db4
Sascha Matzke 2010-07-16 10:31:20 +02:00
parent 6e3dee43d4
commit e42479b257
1 changed files with 1 additions and 1 deletions

View File

@ -44,7 +44,7 @@ TYPED: write-int32 ( int: integer -- ) INT32-SIZE (>le) ; inline
TYPED: write-double ( real: float -- ) double>bits INT64-SIZE (>le) ; inline
TYPED: write-utf8-string ( string: string -- )
output-stream get utf8 <encoder> stream-write ; inline
get-output utf8 encode-string ; inline
TYPED: write-cstring ( string: string -- )
write-utf8-string 0 write1 ; inline