X-Git-Url: https://gerrit.simantics.org/r/gitweb?p=simantics%2Fplatform.git;a=blobdiff_plain;f=tests%2Forg.simantics.scl.compiler.tests%2Fsrc%2Forg%2Fsimantics%2Fscl%2Fcompiler%2Ftests%2Fscl%2FIndentationAndParenthesis.scl;h=d74eca60cbb41c6b610de3606c7ec1c9c6fadf4a;hp=3a8dc3de7e4e49be22d55609967963716d051c41;hb=HEAD;hpb=fdbe87627e92805701d0672fbe8f1dc60b7f7b00

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 3a8dc3de7..d74eca60c 100644
--- 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
-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)))
---
+// 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