 
 #! Return a parser that first skips all whitespace before
 #! calling the original parser.
-C: sp sp-parser ( p1 -- parser )
+C: sp sp-parser
 
 M: sp-parser parse ( input parser -- list )
     #! Skip all leading whitespace from the input then call


TUPLE: just-parser p1 ;

C: just just-parser ( p1 -- parser )

M: just-parser parse ( input parser -- result )
    #! Calls the given parser on the input removes


TUPLE: fail-parser ;

C: fail fail-parser

M: fail-parser parse ( input parser -- list )
    #! A parser that always fails and returns
