   { "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 "
+    "Returns a parser that parses 0 or more instances of the " { $snippet "parser" } ". The AST produced is "
+    "an array of the AST produced by the " { $snippet "parser" } ". An empty array indicates 0 instances were "
     "parsed." } ;
 
 HELP: repeat1

  { "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 calls the original " { $snippet "parser" } " after stripping any whitespace "
    " from the left of the input string." } ;

HELP: hide
