Files
linguist/samples/Terra/fnpointer.t
2016-01-28 11:22:27 +07:00

24 lines
283 B
Perl

terra foo()
return 4LL
end
terra bar()
return 5LL
end
terra bar3(fn: {} -> int64)
return fn()
end
terra baz(a : int64)
var afn = foo
if a > 2 then
afn = bar
end
return bar3(afn)
end
local test = require("test")
test.eq(baz(1),4)
test.eq(baz(3),5)