 : define-parser-word ( parser word -- )
     ! Return the body of the word that is the compiled version
     ! of the parser.
+
     2dup swap peg>> (compile) ( -- result ) define-declared
     swap id>> "peg-id" set-word-prop ;
 

    ] if* ;

: compile-parser-quot ( parser -- quot )
    compile-parser [ execute-parser ] curry ;

SYMBOL: delayed


    <parse-error> error-stack get push ;

SYMBOL: ignore

: ignore? ( obj -- ? )
    ignore = ;

: packrat ( id -- cache )
    ! The packrat cache is a mapping of parser-id->cache.
