max-stack-var ( seq -- n/f )

Vocabulary

interpolate.private

Inputs

seq

an object

Outputs

n/f

an object

Definition

USING: accessors kernel math.order sequences ;

IN: interpolate.private

: max-stack-var ( seq -- n/f )
    f
    [ first dup stack-var? [ n>> [ or ] keep max ] [ drop ] if ]
    reduce ;