emit-tuple ( tuple -- pointer )

Vocabulary

bootstrap.image.private

Inputs

tuple

an object

Outputs

pointer

an object

Definition

USING: accessors classes kernel ;

IN: bootstrap.image.private

: emit-tuple ( tuple -- pointer )
    dup class-of name>> "tombstone" =
    [ [ (emit-tuple) ] cache-eql-object ]
    [ [ (emit-tuple) ] cache-eq-object ] if ;