Merge commit 'bf75fd9'

[simantics/platform.git] / tests / org.simantics.scl.compiler.tests / src / org / simantics / scl / compiler / tests / scl / PolymorphicRecursion2.scl

\r
\r
class Foo a where\r
    foo :: a\r
    \r
data List a = Nil | Cons a (List a)\r
\r
r x = Cons foo (r x)\r
\r
main = (1.0 :: Double)\r
--\r
1.0