declared-class ( value -- class/f )

Vocabulary

compiler.tree.escape-analysis.simple

Inputs

value

an object

Outputs

class/f

an object

Definition

USING: accessors assocs compiler.tree
compiler.tree.escape-analysis.nodes kernel namespaces ;

IN: compiler.tree.escape-analysis.simple

: declared-class ( value -- class/f )
    next-node get dup #declare?
    [ declaration>> at ] [ 2drop f ] if ;