serialize-shared ( obj quot -- )

Vocabulary

serialize.private

Inputs

obj	an object
quot	an object

Outputs

None

Definition

USING: io kernel ;

IN: serialize.private

: serialize-shared ( obj quot -- )
    [ dup object-id [ 111 write1 serialize-cell drop ] ] dip if*
    ; inline