   { "parser" parser }
 }
 { $description
-    "Returns a parser that parses 1 or more instances of the 'p1' parser. The AST produced is "
-    "an array of the AST produced by the 'p1' parser." } ;
+    "Returns a parser that parses 1 or more instances of the " { $snippet "parser" } ". The AST produced is "
+    "an array of the AST produced by the " { $snippet "parser" } "." } ;
 
 HELP: optional
 { $values
   { "parser" parser }
 }
 { $description
-    "Returns a parser that parses 0 or 1 instances of the 'p1' parser. The AST produced is "
-    "'f' if 0 instances are parsed the AST produced is 'f', otherwise it is the AST produced by 'p1'." } ;
+    "Returns a parser that parses 0 or 1 instances of the " { $snippet "parser" } ". The AST produced is "
+    { $link f } " if 0 instances are parsed the AST produced is " { $link f } ", otherwise it is the AST produced by " { $snippet "parser" } "." } ;
 
 HELP: semantic
 { $values

  { "parser" parser }
}
{ $description
    "Returns a parser that parses 0 or more instances of the 'p1' parser. The AST produced is "
    "an array of the AST produced by the 'p1' parser. An empty array indicates 0 instances were "
    "parsed." } ;

HELP: repeat1

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