strip-encodings ( -- )

Vocabulary

bootstrap.stage2

Inputs

None

Outputs

None

Definition

USING: compiler.units definitions kernel sequences system vocabs
;

IN: bootstrap.stage2

: strip-encodings ( -- )
    os unix? [
        [
            P" resource:core/io/encodings/utf16/utf16.factor"
            forget "io.encodings.utf16" loaded-child-vocab-names
            [ forget-vocab ] each
        ] with-compilation-unit
    ] when ;