extended-part ( str -- str' )

Vocabulary

bootstrap.image.private

Inputs

str

an object

Outputs

str'

an object

Definition

USING: endian kernel math namespaces sequences ;

IN: bootstrap.image.private

: extended-part ( str -- str' )
    dup [ 128 < ] all?
    [ drop f ] [
        [ -7 shift 1 bitxor ] { } map-as big-endian get
        [ [ 2 >be ] { } map-as ] [ [ 2 >le ] { } map-as ] if
        B{ } join
    ] if ;