   { "quot" { $quotation ( ast -- ast ) } }
 }
 { $description
-    "Returns a parser that calls the 'p1' parser and applies the quotation to the AST resulting "
+    "Returns a parser that calls the " { $snippet "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." }

  { "quot" { $quotation ( object -- ? ) } }
}
{ $description
    "Returns a parser that succeeds if the 'p1' parser succeeds and the quotation called with "
    "the AST produced by 'p1' on the stack returns true." }
{ $examples
  { $example "USING: kernel math peg prettyprint ;" "\"C\" [ drop t ] satisfy [ 66 > ] semantic parse ." "67" }
} ;

  { "parser" parser }
}
{ $description
    "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" } ;
