(effect-here) ( inner-d old-meta-d-length old-input-count -- effect )

Vocabulary

stack-checker.row-polymorphism

Inputs

inner-d	an object
old-meta-d-length	an object
old-input-count	an object

Outputs

effect

an object

Definition

USING: arrays effects kernel math namespaces sequences
stack-checker.state ;

IN: stack-checker.row-polymorphism

:: (effect-here)
    ( inner-d old-meta-d-length old-input-count -- effect )
    old-meta-d-length inner-d -
    input-count get old-input-count - + terminated? get
    [ [ 0 ] [ meta-d length inner-d - ] if [ "x" <array> ] bi@ ]
    keep <terminated-effect> ; inline