delete-node ( node -- )

Vocabulary

compiler.tree.cleanup

Inputs

node

an object

Outputs

None

Definition

IN: compiler.tree.cleanup

GENERIC: delete-node ( node -- )

Methods

USING: accessors compiler.tree compiler.tree.cleanup kernel
sequences ;

M: #call-recursive delete-node
    dup label>> calls>> [ node>> eq? ] with reject! drop ;


USING: accessors compiler.tree compiler.tree.cleanup kernel ;

M: #return-recursive delete-node label>> f >>return drop ;


USING: compiler.tree compiler.tree.cleanup kernel ;

M: node delete-node drop ;