surrounded-by ( parser start end -- parser' )

Vocabulary

parser-combinators

Inputs

parser	an object
start	an object
end	an object

Outputs

parser'

an object

Definition

USING: generalizations kernel promises ;

IN: parser-combinators

: surrounded-by ( parser start end -- parser' )
    [ [ token ] bi@ swapd pack ] 3 ncurry <promise> ;