return fixed for real, tests added

This commit is contained in:
Dmitry Boulytchev 2020-01-05 03:33:17 +03:00
parent 644c1b3086
commit 274bda6938
95 changed files with 870 additions and 14 deletions

23
regression/test096.expr Normal file
View file

@ -0,0 +1,23 @@
fun f () {
local x, l = {};
fun g () { x}
x := 1;
l := g : l;
x := 2;
l := g : l;
l
}
fun p (l) {
case l of
{} -> skip
| h : tl -> write (h ()); p (tl)
esac
}
local x = read ();
p (f ())