Fix lambda lifter
This commit is contained in:
parent
528369c95c
commit
133cc31e77
3 changed files with 42 additions and 48 deletions
|
|
@ -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;
|
||||
};
|
||||
|
|
|
|||
Loading…
Add table
Add a link
Reference in a new issue