Splat up the codegenerator a bit.

This commit is contained in:
Samuel Hammersberg 2023-03-29 17:34:47 +02:00
parent 36b6a8f781
commit 61f364cd75
6 changed files with 552 additions and 573 deletions

View file

@ -31,7 +31,7 @@ bind x f = case x of {
-- represents minus one :)
minusOne : Int ;
minusOne = 9223372036854775807 + 9223372036854775807 + 1;
{-
---- LIST STUFF ----
-- a simple list data type containing ints
data List () where {
@ -69,4 +69,3 @@ repeat x n = case n of {
0 => Nil ;
n => Cons x (repeat x (n + minusOne)) ;
};
-}