Splat up the codegenerator a bit.
This commit is contained in:
parent
36b6a8f781
commit
61f364cd75
6 changed files with 552 additions and 573 deletions
|
|
@ -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)) ;
|
||||
};
|
||||
-}
|
||||
Loading…
Add table
Add a link
Reference in a new issue