From f84761ae0c5c0a172787d71312a87d6be518af21 Mon Sep 17 00:00:00 2001
From: Doug Coleman <doug.coleman@gmail.com>
Date: Wed, 5 Mar 2008 18:15:28 -0600
Subject: [PATCH] fix docs for delay

---
 extra/peg/peg-docs.factor | 3 ++-
 extra/peg/peg.factor      | 2 +-
 2 files changed, 3 insertions(+), 2 deletions(-)

diff --git a/extra/peg/peg-docs.factor b/extra/peg/peg-docs.factor
index 6dff95c829..9ad375ea04 100644
--- a/extra/peg/peg-docs.factor
+++ b/extra/peg/peg-docs.factor
@@ -135,9 +135,10 @@ HELP: hide
 
 HELP: delay
 { $values 
+  { "quot" "a quotation" } 
   { "parser" "a parser" } 
 }
 { $description 
     "Delays the construction of a parser until it is actually required to parse. This " 
     "allows for calling a parser that results in a recursive call to itself. The quotation "
-    "should return the constructed parser." } ;
\ No newline at end of file
+    "should return the constructed parser." } ;
diff --git a/extra/peg/peg.factor b/extra/peg/peg.factor
index 01decc2c81..16cf40f884 100755
--- a/extra/peg/peg.factor
+++ b/extra/peg/peg.factor
@@ -358,7 +358,7 @@ MEMO: sp ( parser -- parser )
 MEMO: hide ( parser -- parser )
   [ drop ignore ] action ;
 
-MEMO: delay ( parser -- parser )
+MEMO: delay ( quot -- parser )
   delay-parser construct-boa init-parser ;
 
 : PEG: