mirror of
https://github.com/KevinMidboe/linguist.git
synced 2025-10-29 09:40:21 +00:00
17 lines
191 B
Perl
17 lines
191 B
Perl
|
|
|
|
twice = macro(function(a)
|
|
return quote
|
|
var v = a
|
|
in
|
|
v + v
|
|
end
|
|
end)
|
|
|
|
|
|
terra foobar()
|
|
var what = 1
|
|
return twice([quote what = what + 1 in what end]) + what
|
|
end
|
|
|
|
assert(6 == foobar()) |