ascii-part ( str -- str' )

Vocabulary

bootstrap.image.private

Inputs

str

an object

Outputs

str'

an object

Definition

USING: kernel math sequences ;

IN: bootstrap.image.private

: ascii-part ( str -- str' )
    [ [ 128 mod ] [ 128 >= ] bi [ 128 bitor ] when ] B{ } map-as
    ;