with-effect-here ( quot -- effect )

Vocabulary
stack-checker.row-polymorphism

Definition

USING: kernel namespaces sequences stack-checker.state ;

IN: stack-checker.row-polymorphism

: with-effect-here ( quot -- effect )
    meta-d length input-count get [ with-inner-d ] 2dip
    (effect-here) ; inline