build-regexp ( ... quot: ( ... verbexp -- ... verbexp ) -- ... regexp )

Vocabulary

verbal-expressions

Inputs

quot	a quotation with stack effect ( ... verbexp -- ... verbexp )

Outputs

regexp

an object

Definition

USING: kernel ;

IN: verbal-expressions

: build-regexp
    ( ... quot: ( ... verbexp -- ... verbexp ) -- ... regexp )
    [ [ <verbexp> ] ] dip [ >regexp ] compose compose call ;
    inline