Fix lambda lifter

This commit is contained in:
Martin Fredin 2023-03-28 14:36:43 +02:00
parent 528369c95c
commit 133cc31e77
3 changed files with 42 additions and 48 deletions

View file

@ -5,7 +5,7 @@ data forall a. List (a) where {
length : forall c. List (c) -> Int;
length = \list. case list of {
Nil => 0;
Cons x xs => 1 + length xs;
Cons x (Cons y Nil) => 2;
-- Nil => 0;
-- Cons x (Cons y Nil) => 2;
};