literal-class ( obj -- class )

Vocabulary

compiler.tree.propagation.info

Inputs

obj

an object

Outputs

class

a class

Word description

Handle forgotten tuples and singleton classes properly.

Definition

USING: classes classes.singleton kernel ;

IN: compiler.tree.propagation.info

: literal-class ( obj -- class )
    dup singleton-class?
    [ class-of dup class? [ drop tuple ] unless ] unless ;