From 3d10bff57c6408535cbdd26c9458633aad681216 Mon Sep 17 00:00:00 2001
From: Jon Rafkind <rafkind@racket-lang.org>
Date: Thu, 3 Dec 2009 00:01:52 +0000
Subject: [PATCH] experiment with different unparsed forms

svn: r17169
---
 collects/honu/private/macro.ss | 14 +++++++++++++-
 1 file changed, 13 insertions(+), 1 deletion(-)

diff --git a/collects/honu/private/macro.ss b/collects/honu/private/macro.ss
index 1043c8c224..95ecfb1ef8 100644
--- a/collects/honu/private/macro.ss
+++ b/collects/honu/private/macro.ss
@@ -389,10 +389,22 @@
                               #:literals (honu-literal ...)
                   [(name pattern* ... . rrest)
                    (with-syntax ([(out (... ...)) (unpull #'pulled)])
+                     ;; TODO: use the proper `honu-unparsed' form depending on the context
                      (values
+                      #'(honu-unparsed-begin out (... ...))
+                      #'rrest)
+                     #;
+                     #'(honu-unparsed-block
+                        #f obj 'obj #f ctx
+                        out (... ...))
+                     #;
+                     (values
+                      #;
+                      #'(honu-unparsed-expr out (... ...))
                       #'(honu-unparsed-block
                          #f obj 'obj #f ctx
-                         out (... ...))
+                         out (... ...) rrest)
+                      #;
                       #'rrest))])))
           #'rest))])))