string>alien-slow ( string encoding -- byte-array )

Vocabulary

alien.strings.private

Inputs

string	an object
encoding	an object

Outputs

byte-array

an object

Definition

USING: byte-vectors io io.encodings kernel kernel.private math
sequences strings ;

IN: alien.strings.private

: string>alien-slow ( string encoding -- byte-array )
    { string object } declare over length 1 +
    over guess-encoded-length <byte-vector> [
        swap <encoder>
        [ stream-write ] [ 0 swap stream-write1 ] bi
    ] keep B{ } like ;