call-push-when ( ..a elt quot: ( ..a elt -- ..b elt' ? ) accum -- ..b )


Vocabulary
sequences.extras

Inputs
eltan object
quota quotation with stack effect ( ..a elt -- ..b elt' ? )
accuman object


Outputs
None

Definition


: call-push-when
( ..a elt quot: ( ..a elt -- ..b elt' ? ) accum -- ..b )
[ call ] dip swap [ push ] [ 2drop ] if ; inline