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;