: map-if ( ... seq quot: ( ... elt -- ... newelt ? ) -- ... newseq ) V{ } clone [ '[ @ _ swap [ push ] [ 2drop ] if ] each ] keep ; inline