with-effect-here ( quot -- effect )


Vocabulary
stack-checker.row-polymorphism

Inputs
quotan object


Outputs
effectan object


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