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

14
regression/test080.expr Normal file
View file

@ -0,0 +1,14 @@
local x;
fun sum (x) {
case x of
Nil -> 0
| Cons (x, tl) -> (x + sum (tl))
esac
}
x := read ();
write (sum (Nil));
write (sum (Cons (100, Nil)));
write (sum (Cons (100, Cons (200, Nil))))