 
 TUPLE: satisfy-parser quot ;
 
-C: satisfy satisfy-parser ( quot -- parser )
+C: satisfy satisfy-parser
 
 M: satisfy-parser parse ( input parser -- list )
     #! A parser that succeeds if the predicate,


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


#! Return a parser that first skips all whitespace before
#! calling the original parser.
C: sp sp-parser

M: sp-parser parse ( input parser -- list )
    #! Skip all leading whitespace from the input then call
