set-string-nth-slow ( ch n string -- )

Vocabulary

strings.private

Inputs

ch	an object
n	an object
string	an object

Outputs

None

Definition

USING: alien.accessors kernel math.private ;

IN: strings.private

: set-string-nth-slow ( ch n string -- )
    [ [ 128 fixnum-bitor ] 2dip set-string-nth-fast ] [
        ensure-aux [ -7 fixnum-shift-fast 1 fixnum-bitxor ] 2dip
        (aux) set-alien-unsigned-2
    ] 3bi ;