diff --git a/collects/tests/honu/math.honu b/collects/tests/honu/math.honu new file mode 100644 index 0000000000..4c4456ca2f --- /dev/null +++ b/collects/tests/honu/math.honu @@ -0,0 +1,16 @@ +#lang honu + +macro add_all(){ + number:expression ... +} { + syntax( + $ number + $ ... 0 + ) + /* + syntax( + $ printf("~a\n", number) $ ... + ) + */ +} + +add_all 1 2 3 * 4; diff --git a/collects/tests/honu/where.honu b/collects/tests/honu/where.honu new file mode 100644 index 0000000000..dfbefbd590 --- /dev/null +++ b/collects/tests/honu/where.honu @@ -0,0 +1,14 @@ +#lang honu + +var where = 0 + +macro varwhere(where =){ unparsed where bind:identifier = any:expression } +{ syntax({var bind = any + unparsed}) } + +varwhere { printf("x is ~a\n", x) + { + var x = 5; + x * 2 + } + } where x = 2 + 1