]> gerrit.simantics Code Review - simantics/platform.git/blobdiff - tests/org.simantics.scl.compiler.tests/src/org/simantics/scl/compiler/tests/scl/GenericMutualRecursion.scl
(refs #7307) Added features field to SCL module header
[simantics/platform.git] / tests / org.simantics.scl.compiler.tests / src / org / simantics / scl / compiler / tests / scl / GenericMutualRecursion.scl
index 24c5858d6d8ba455f16412169b141b74c4cae8a9..580260f75f4cfd228382454f43cba93b7dbb00f8 100644 (file)
@@ -1,12 +1,12 @@
-// Idea of this test is to ensure that generic type variables\r
-// and constraints are handled correctly with mutually recursive\r
-// functions\r
-\r
-import "Prelude"\r
-\r
-deepId count x = deepId2 count x\r
-deepId2 count x = if count <= 0 then x else deepId (count-1) x\r
-\r
-main = deepId 5 "FOO"\r
---\r
+// Idea of this test is to ensure that generic type variables
+// and constraints are handled correctly with mutually recursive
+// functions
+
+import "Prelude"
+
+deepId count x = deepId2 count x
+deepId2 count x = if count <= 0 then x else deepId (count-1) x
+
+main = deepId 5 "FOO"
+--
 FOO
\ No newline at end of file