From 5dab69cf4bf4179aef3acc7465664b5ed4097df6 Mon Sep 17 00:00:00 2001
From: Jon Rafkind <rafkind@racket-lang.org>
Date: Tue, 30 Aug 2011 17:18:58 -0600
Subject: [PATCH] [honu] new macro test

---
 collects/tests/honu/macros.rkt | 60 ++--------------------------------
 1 file changed, 2 insertions(+), 58 deletions(-)

diff --git a/collects/tests/honu/macros.rkt b/collects/tests/honu/macros.rkt
index 4a4646769f..f21c32b7e5 100644
--- a/collects/tests/honu/macros.rkt
+++ b/collects/tests/honu/macros.rkt
@@ -1,61 +1,5 @@
 #lang honu
 
-// display(1);
+macro testx () {x:expression} {syntax(x_result + 1)}
 
-/*
-=> 
-
-x = function(q){
-  print q;
-  if (q < end){
-    x(q+1);
-  }
-}
-x(start);
-*/
-
-/*
-
-// display(syntax ...);
-
-macro (to2){{fuz
-            x ... to2
-               }}
-{{
-  display(x);
-         ...
-  }}
-
-fuz 5 6 to2
-
-// macro (to = do end) {{ for looper:id = first:expr to last:expr do
-
-                           /*
-macro (to = do end) {{ for looper = first to last do
-  body ...
-}}
-{{
-  /* display(2); */
-  var x = function(looper){
-    body ...
-    if (looper < last){
-      x(looper+1);
-    }
-  };
-  x(first);
-}}
-                           
-
-/*
-for2 x = 1 to 10 do
-  display(x);
-  newline();
-end
-*/
-
-for x = 1 to 10 do
-  display(x);
-  newline();
-
-                           */
-*/
+testx 5 * 2;