]> gerrit.simantics Code Review - simantics/platform.git/blob - bundles/org.simantics.scl.compiler/tests/org/simantics/scl/compiler/tests/scl/PolymorphicRecursion2.scl
Re-enabled Acorn transaction cancellation support for testing
[simantics/platform.git] / bundles / org.simantics.scl.compiler / tests / org / simantics / scl / compiler / tests / scl / PolymorphicRecursion2.scl
1 \r
2 \r
3 class Foo a where\r
4     foo :: a\r
5     \r
6 data List a = Nil | Cons a (List a)\r
7 \r
8 r x = Cons foo (r x)\r
9 \r
10 main = (1.0 :: Double)\r
11 --\r
12 1.0