word-template ( quot -- quot' )

Vocabulary

regexp.compiler.private

Inputs

quot

an object

Outputs

quot'

an object

Definition

USING: kernel sequences.private ;

IN: regexp.compiler.private

: word-template ( quot -- quot' )
    [ [ drop [ f ] 2dip over array-capacity? ] ] dip
    [ [ 2drop ] if ] curry compose ;