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 / IndentationAndParenthesis.scl

diff --git a/tests/org.simantics.scl.compiler.tests/src/org/simantics/scl/compiler/tests/scl/IndentationAndParenthesis.scl b/tests/org.simantics.scl.compiler.tests/src/org/simantics/scl/compiler/tests/scl/IndentationAndParenthesis.scl
index 3a8dc3de7e4e49be22d55609967963716d051c41..d74eca60cbb41c6b610de3606c7ec1c9c6fadf4a 100644 (file)
--- a/tests/org.simantics.scl.compiler.tests/src/org/simantics/scl/compiler/tests/scl/IndentationAndParenthesis.scl
+++ b/tests/org.simantics.scl.compiler.tests/src/org/simantics/scl/compiler/tests/scl/IndentationAndParenthesis.scl
@@ -1,16 +1,16 @@
-// The last character of the program is an extra closing parenthesis\r
-data List a = Nil | Cons a (List a)\r
-\r
-first Nil = 0\r
-first (Cons x _) = x\r
-\r
-reverse l = reverseAux Nil l \r
-  where\r
-    reverseAux accum Nil = accum\r
-    reverseAux accum (Cons h t) = reverseAux (Cons h accum) t    \r
-\r
-main = first (reverse l) \r
-  where\r
-    l = Cons 1 (Cons 2 (Cons 3 Nil)))\r
---\r
+// The last character of the program is an extra closing parenthesis
+data List a = Nil | Cons a (List a)
+
+first Nil = 0
+first (Cons x _) = x
+
+reverse l = reverseAux Nil l 
+  where
+    reverseAux accum Nil = accum
+    reverseAux accum (Cons h t) = reverseAux (Cons h accum) t    
+
+main = first (reverse l) 
+  where
+    l = Cons 1 (Cons 2 (Cons 3 Nil)))
+--
 14:37-14:38: No corresponding opening parenthesis for ')'.
\ No newline at end of file