mirror of
https://github.com/KevinMidboe/linguist.git
synced 2025-10-29 01:30:22 +00:00
16 lines
174 B
Perl
16 lines
174 B
Perl
|
|
local a = 0
|
|
local foo = macro(function(arg)
|
|
bar:gettype(function()
|
|
a = bar()
|
|
end)
|
|
a = 1
|
|
return 3
|
|
end)
|
|
|
|
terra bar()
|
|
return foo()
|
|
end
|
|
|
|
assert(bar() == 3)
|
|
assert(a == 3) |