serialize-shared ( obj quot -- ) (original) (raw)

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