Fixed multiple issues causing dangling references to discarded queries

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

diff --git a/tests/org.simantics.scl.compiler.tests/src/org/simantics/scl/compiler/tests/scl/Effects2.scl b/tests/org.simantics.scl.compiler.tests/src/org/simantics/scl/compiler/tests/scl/Effects2.scl
index d595ee93851f37edb77df4366f25b55e8532221b..ef57c2930fd88dee105b71e50d7a1b43d7d72fc0 100644 (file)
--- a/tests/org.simantics.scl.compiler.tests/src/org/simantics/scl/compiler/tests/scl/Effects2.scl
+++ b/tests/org.simantics.scl.compiler.tests/src/org/simantics/scl/compiler/tests/scl/Effects2.scl
@@ -1,21 +1,21 @@
-import "JavaBuiltin" as Java\r
-\r
-importJava "java.util.List" where\r
-    data List a\r
-\r
-    add :: List a -> a -> <Proc> Boolean\r
-\r
-importJava "java.util.ArrayList" where\r
-    @JavaName "<init>"\r
-    arrayList :: Integer -> <Proc> List a\r
-\r
-singleton :: a -> <Proc> List a\r
-singleton el = result\r
-  where\r
-    result = arrayList 1\r
-    r = add result el\r
-\r
-main :: List Integer\r
-main = runProc (singleton (13 :: Integer))\r
---\r
+import "JavaBuiltin" as Java
+
+importJava "java.util.List" where
+    data List a
+
+    add :: List a -> a -> <Proc> Boolean
+
+importJava "java.util.ArrayList" where
+    @JavaName "<init>"
+    arrayList :: Integer -> <Proc> List a
+
+singleton :: a -> <Proc> List a
+singleton el = result
+  where
+    result = arrayList 1
+    r = add result el
+
+main :: List Integer
+main = runProc (singleton (13 :: Integer))
+--
 [13]
\ No newline at end of file