]> gerrit.simantics Code Review - simantics/platform.git/blob - tests/org.simantics.scl.compiler.tests/src/org/simantics/scl/compiler/tests/scl/IndentationAndParenthesis.scl
Supply SVG text editor with element measurement context
[simantics/platform.git] / tests / org.simantics.scl.compiler.tests / src / org / simantics / scl / compiler / tests / scl / IndentationAndParenthesis.scl
1 // The last character of the program is an extra closing parenthesis
2 data List a = Nil | Cons a (List a)
3
4 first Nil = 0
5 first (Cons x _) = x
6
7 reverse l = reverseAux Nil l 
8   where
9     reverseAux accum Nil = accum
10     reverseAux accum (Cons h t) = reverseAux (Cons h accum) t    
11
12 main = first (reverse l) 
13   where
14     l = Cons 1 (Cons 2 (Cons 3 Nil)))
15 --
16 14:37-14:38: No corresponding opening parenthesis for ')'.