unless-loop ( node quot -- )

Vocabulary

compiler.tree.propagation.recursive

Inputs

node	an object
quot	an object

Outputs

None

Definition

USING: accessors kernel ;

IN: compiler.tree.propagation.recursive

: unless-loop ( node quot -- )
    [ dup label>> loop?>> [ drop ] ] dip if ; inline