emit-word ( word -- )

Vocabulary

bootstrap.image.private

Inputs

word

an object

Outputs

None

Definition

USING: accessors combinators combinators.smart kernel sequences
words ;

IN: bootstrap.image.private

: emit-word ( word -- )
    [
        [ subwords [ emit-word ] each ] [
            [
                {
                    [ hashcode <fake-bignum> ]
                    [ name>> ]
                    [ vocabulary>> ]
                    [ def>> ]
                    [ props>> ]
                    [ pic-def>> ]
                    [ pic-tail-def>> ]
                    [ word-sub-primitive ]
                    [ drop 0 ]
                } cleave
            ] output>array [ prepare-object ] map!
        ] bi \ word [ emit-seq ] emit-object
    ] keep put-object ;