serialize-shared ( obj quot -- ) (original) (raw)
serialize-shared ( obj quot -- )
Inputs
obj | an object |
---|---|
quot | an object |
Outputs
None
Definition
: serialize-shared ( obj quot -- )
[ dup object-id [ 111 write1 serialize-cell drop ] ] dip if*
; inline