mirror of
https://github.com/KevinMidboe/linguist.git
synced 2025-10-29 17:50:22 +00:00
19 lines
211 B
Perl
19 lines
211 B
Perl
r = 1
|
|
local function foo(a)
|
|
r = a
|
|
return r
|
|
end
|
|
local b = foo(1)
|
|
(foo)(3)
|
|
assert(b + r == 4)
|
|
|
|
terra testescapes()
|
|
var a = [4]
|
|
[ quote
|
|
a = a + 1
|
|
end
|
|
]
|
|
return [ `&a ][0]
|
|
end
|
|
|
|
assert(testescapes() == 5) |