experiment with different unparsed forms

svn: r17169
2009-12-03 00:01:52 +00:00 · 2009-12-03 00:01:52 +00:00 · 3d10bff57c
commit 3d10bff57c
parent d42a6f1582
1 changed files with 13 additions and 1 deletions
--- 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))])))