Merge commit '876ede6'
[simantics/platform.git] / tests / org.simantics.scl.compiler.tests / src / org / simantics / scl / compiler / tests / scl / MatchingWithoutTypeAnnotations.scl
1 \r
2 data List a = Nil | Cons a (List a)\r
3 \r
4 //first :: List Integer -> Integer\r
5 first Nil = 0 :: Integer\r
6 first (Cons x _) = x\r
7 \r
8 main = first (Cons (9 :: Integer) (Cons (8 :: Integer) Nil))\r
9 --\r
10 9