diff --git a/extra/peg/peg.factor b/extra/peg/peg.factor index 871db21084..4cfa94ce48 100755 --- a/extra/peg/peg.factor +++ b/extra/peg/peg.factor @@ -109,7 +109,7 @@ C: peg-head : eval-rule ( rule -- ast ) #! Evaluate a rule, return an ast resulting from it. #! Return fail if the rule failed. The rule has - #! stack effect ( input -- parse-result ) + #! stack effect ( -- parse-result ) pos get swap execute process-rule-result ; inline : memo ( pos rule -- memo-entry )