: ascii-string>utf16be ( string stream -- )
[ 1 swap ascii-string>utf16-byte-array ] dip stream-write ; inline
-GENERIC# encode-string-utf16le 1 ( string stream -- )
+GENERIC#: encode-string-utf16le 1 ( string stream -- )
M: object encode-string-utf16le
[ char>utf16le ] curry each ; inline
M: utf16le encode-string drop encode-string-utf16le ;
-GENERIC# encode-string-utf16be 1 ( string stream -- )
+GENERIC#: encode-string-utf16be 1 ( string stream -- )
M: object encode-string-utf16be
[ char>utf16be ] curry each ; inline