mirror of
https://github.com/KevinMidboe/linguist.git
synced 2025-10-29 09:40:21 +00:00
17 lines
257 B
Perl
17 lines
257 B
Perl
local c = terralib.includec("stdio.h")
|
|
|
|
iamclean = macro(function(arg)
|
|
return quote
|
|
var a = 3
|
|
return a,arg
|
|
end
|
|
end)
|
|
|
|
terra doit()
|
|
var a = 4
|
|
iamclean(a)
|
|
end
|
|
|
|
local a = doit()
|
|
local test = require("test")
|
|
test.meq({3,4}, a) |