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

Vocabulary

alien.strings.private

Inputs

string	an object
encoding	an object

Outputs

byte-array

an object

Definition

USING: byte-arrays kernel kernel.private math sequences
sequences.private strings strings.private ;

IN: alien.strings.private

: string>alien-fast ( string encoding -- byte-array )
    { string object } declare drop [ length ] keep over [
        1 + (byte-array) [
            [
                [ [ string-nth-fast ] keepd ] [ set-nth-unsafe ]
                bi*
            ] 2curry each-integer
        ] keep
    ] keep 0 swap pick set-nth-unsafe ;