with-drop ( quot -- quot' )


Vocabulary
combinators.random.private

Inputs
quotan object


Outputs
quot'an object


Definition
USING: kernel sequences ;

IN: combinators.random.private

: with-drop ( quot -- quot' ) [ drop ] prepend ; inline