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

19
regression/test092.expr Normal file
View file

@ -0,0 +1,19 @@
fun f (l) {
infix "===" at "==" (a, b) {
a == b
}
case l of
{} -> 1
| {_} -> 1
| a : b : tl -> a === b && f (b : tl)
esac
}
local x = read ();
write (f ({}));
write (f ({1}));
write (f ({1, 1}));
write (f ({1, 1, 1}));
write (f ({1, 2, 1}))