24 lines
357 B
Racket
24 lines
357 B
Racket
#lang honu
|
|
|
|
macro testx () {x:expression} {
|
|
var out1 = syntax(x)
|
|
var out2 = syntax(+ 1)
|
|
mergeSyntax(out1, out2)
|
|
}
|
|
|
|
testx 5 * 2
|
|
|
|
for z in 1 to testx 6 * 2 do
|
|
printf("z is ~a\n", z)
|
|
|
|
macro testfor () {x:expression} {
|
|
syntax(for z in 1 to x do
|
|
printf("z is ~a\n" z))
|
|
}
|
|
|
|
macro testfor2 () {x:expression}{
|
|
syntax(testfor x * 2)
|
|
}
|
|
|
|
testfor2 1 + 2
|