at-least-n ( parser n -- parser' ) (original) (raw)

at-least-n ( parser n -- parser' )

Vocabulary
parser-combinators

Inputs

parser	an object
n	an object

Outputs

parser'	an object

Definition

USING: kernel ;

IN: parser-combinators

: at-least-n ( parser n -- parser' )
dupd exactly-n swap <*> <&> ;