]> gerrit.simantics Code Review - simantics/platform.git/blob - tests/org.simantics.scl.compiler.tests/src/org/simantics/scl/compiler/tests/scl/Macros2.scl
Merge commit '2a46c55'
[simantics/platform.git] / tests / org.simantics.scl.compiler.tests / src / org / simantics / scl / compiler / tests / scl / Macros2.scl
1 import "JavaBuiltin" as Java\r
2 \r
3 (==) = Java.icmpeq\r
4 \r
5 @macro\r
6 (&<&) :: Integer -> Integer -> Integer\r
7 a &<& b = if cmp == 0 then b else cmp\r
8   where   \r
9     cmp = a\r
10 \r
11 main = 3 &<& 7\r
12 --\r
13 3