parse-1 ( input parser -- result ) (original) (raw)
parse-1 ( input parser -- result )
Vocabulary
parser-combinators
Inputs
| input | an object |
|---|---|
| parser | an object |
Outputs
| result | an object |
|---|
Definition
USING: accessors kernel lists ;
: parse-1 ( input parser -- result )
dupd parse dup nil?
[ swap cannot-parse ] [ nip car parsed>> ] if ;