]> gerrit.simantics Code Review - simantics/platform.git/blob - tests/org.simantics.scl.compiler.tests/src/org/simantics/scl/compiler/tests/scl/Macros1.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 / Macros1.scl
1 @macro
2 (||) :: Boolean -> Boolean -> Boolean 
3 a || b = if a then True else b
4
5 main :: Boolean
6 main = True || (fail "This should not be executed")
7 --
8 true