emit-uninterned-words ( -- )

Vocabulary

bootstrap.image.private

Inputs

None

Outputs

None

Definition

USING: fry kernel locals.types math namespaces sequences ;

IN: bootstrap.image.private

: emit-uninterned-words ( -- )
    0
    [ dup bootstrapping-image get length < ] [
        dup bootstrapping-image get nth dup
        [ lexical? ] [ fry-word? ] bi or
        [ dup lookup-object [ 2drop ] [ emit-word ] if* ]
        [ drop ] if 1 +
    ] while drop ;