From b055ce9fe0ad3c57d8863f18acd0df178b0e7a7e Mon Sep 17 00:00:00 2001
From: Jon Rafkind <rafkind@racket-lang.org>
Date: Mon, 10 Oct 2011 12:04:00 -0600
Subject: [PATCH] [honu] wrap blocks inside a definition context (with let)

---
 collects/honu/core/private/parse2.rkt | 3 ++-
 collects/honu/scribblings/honu.scrbl  | 4 ++--
 2 files changed, 4 insertions(+), 3 deletions(-)

diff --git a/collects/honu/core/private/parse2.rkt b/collects/honu/core/private/parse2.rkt
index 8c19bf65e7..4b13214323 100644
--- a/collects/honu/core/private/parse2.rkt
+++ b/collects/honu/core/private/parse2.rkt
@@ -278,7 +278,8 @@
                         (values (left current) stream)
                         (let ()
                           (define body (parse-all #'(stuff ...)))
-                          (do-parse #'(rest ...) precedence left body)))]
+                          (with-syntax ([body body])
+                            (do-parse #'(rest ...) precedence left #'(let () body)))))]
                      ;; expression or function application
                      [(#%parens args ...)
                       (if current
diff --git a/collects/honu/scribblings/honu.scrbl b/collects/honu/scribblings/honu.scrbl
index 7e9901282e..41537c816f 100644
--- a/collects/honu/scribblings/honu.scrbl
+++ b/collects/honu/scribblings/honu.scrbl
@@ -12,12 +12,12 @@
 Honu's main goal is to support syntactic abstraction mechanisms similar to
 Racket. Currently, Honu is a prototype and may change without notice.
 
+@defmodulelang[honu]
+
 @table-of-contents[]
 
 @; ----------------------------------------------------------------------
 
-@defmodulelang[honu]
-
 @section{Get started}
 To use Honu in a module, write the following line at the top of the file.