unchanged-underneath ( #call-recursive -- n )

Vocabulary

compiler.tree.normalization

Inputs

#call-recursive

an object

Outputs

n

an object

Definition

USING: accessors kernel math sequences ;

IN: compiler.tree.normalization

: unchanged-underneath ( #call-recursive -- n )
    [ out-d>> length ] [ label>> return>> in-d>> length ] bi - ;