   { "parser" parser }
 }
 { $description
-    "Returns a parser that succeeds if the 'p1' parser fails but does not add anything to the "
+    "Returns a parser that succeeds if the " { $snippet "parser" } " fails but does not add anything to the "
     "AST and does not move the location in the input string. This can be used for lookahead and "
     "disambiguation, along with the " { $link ensure } " word." }
 { $code "\"+\" token \"=\" token ensure-not \"+=\" token 3array seq" } ;

  { "quot" { $quotation ( ast -- ast ) } }
}
{ $description
    "Returns a parser that calls the 'p1' parser and applies the quotation to the AST resulting "
    "from that parse. The result of the quotation is then used as the final AST. This can be used "
    "for manipulating the parse tree to produce a AST better suited for the task at hand rather than "
    "the default AST. If the quotation returns " { $link fail } " then the parser fails." }

  { "parser" parser }
}
{ $description
    "Returns a parser that calls the original " { $snippet "parser" } " after stripping any whitespace "
    " from the left of the input string." } ;

HELP: hide
