serialize-gensym ( word -- )

Vocabulary

serialize.private

Inputs

word

an object

Outputs

None

Definition

USING: accessors io kernel serialize ;

IN: serialize.private

: serialize-gensym ( word -- )
    [
        71 write1
        [ add-object ] [ def>> (serialize) ]
        [ props>> (serialize) ] tri
    ] serialize-shared ;