mirror of
https://github.com/KevinMidboe/linguist.git
synced 2025-10-29 09:40:21 +00:00
23 lines
296 B
Perl
23 lines
296 B
Perl
|
|
|
|
checkl = macro(function(a)
|
|
assert(a:islvalue())
|
|
return a
|
|
end)
|
|
|
|
checkr = macro(function(a)
|
|
assert(not a:islvalue())
|
|
return a
|
|
end)
|
|
|
|
|
|
terra testit()
|
|
|
|
var a = checkr(4)
|
|
var b = checkr(checkl(a) + 3)
|
|
var c = checkl([quote var d = 5 in d end])
|
|
return a + b + c
|
|
end
|
|
|
|
assert(4+7+5 == testit())
|