]> gerrit.simantics Code Review - simantics/platform.git/blob - tests/org.simantics.scl.compiler.tests/src/org/simantics/scl/compiler/tests/scl/AsPattern.scl
Merge commit '145a2884933f2ffdd48d6835729e58f1152d274e'
[simantics/platform.git] / tests / org.simantics.scl.compiler.tests / src / org / simantics / scl / compiler / tests / scl / AsPattern.scl
1 import "JavaBuiltin" as Java\r
2 \r
3 sort p@(a,b) | Java.icmpgt a b = (b,a)\r
4              | True            = p\r
5                \r
6 main = sort (sort (2 :: Integer,1 :: Integer))\r
7 --\r
8 (1,2)