From fb42f390c935e9f34dc61ff9d845dbc61c343f47 Mon Sep 17 00:00:00 2001
From: Jon Rafkind <rafkind@racket-lang.org>
Date: Thu, 1 Nov 2012 01:17:40 -0600
Subject: [PATCH] [honu] provide honu-syntax through the user api

---
 collects/honu/core/api.rkt            | 2 ++
 collects/honu/core/private/macro2.rkt | 9 +++++----
 2 files changed, 7 insertions(+), 4 deletions(-)

diff --git a/collects/honu/core/api.rkt b/collects/honu/core/api.rkt
index c1fb359dba..891e9f46b1 100644
--- a/collects/honu/core/api.rkt
+++ b/collects/honu/core/api.rkt
@@ -5,10 +5,12 @@
 (require "private/syntax.rkt"
          "private/literals.rkt"
          (for-syntax "private/compile.rkt"
+                     "private/syntax.rkt"
                      "private/parse2.rkt"))
 (provide define-honu-syntax
          define-literal
          (for-syntax racket-syntax
                      honu-expression
+                     honu-syntax
                      honu-body
                      parse-all))
diff --git a/collects/honu/core/private/macro2.rkt b/collects/honu/core/private/macro2.rkt
index c2c7ef0d26..0e535468e0 100644
--- a/collects/honu/core/private/macro2.rkt
+++ b/collects/honu/core/private/macro2.rkt
@@ -394,10 +394,11 @@
                                            (with-syntax ([(out ...) maybe-out])
                                              #'(#:with result (parse-stuff honu-syntax (#%parens out ...))))
                                            #'(#:with result #'()))])
-          #'[pattern (~seq new-pattern ...)
-                     withs ... ...
-                     result-with ...
-                     ]))
+          (syntax/loc honu-pattern
+                      [pattern (~seq new-pattern ...)
+                               withs ... ...
+                               result-with ...
+                               ])))
 
       (define pattern-stuff
         (for/list ([pattern (syntax->list #'(pattern-stx ...))]