word-template ( quot -- quot' )

Vocabulary

regexp.compiler.private

Inputs

quot

an object

Outputs

quot'

an object

Definition

USING: kernel namespaces regexp.compiler sequences.private ;

IN: regexp.compiler.private

: word-template ( quot -- quot' )
    backwards? get
    [ [ dup -1 = swap array-capacity? or ] ]
    [ [ array-capacity? ] ] if swap
    '[ drop [ f ] 2dip over @ _ [ 2drop ] if ] ;