X-Git-Url: https://gerrit.simantics.org/r/gitweb?a=blobdiff_plain;f=tests%2Forg.simantics.scl.compiler.tests%2Fsrc%2Forg%2Fsimantics%2Fscl%2Fcompiler%2Ftests%2Fscl%2FCHR3.scl;fp=tests%2Forg.simantics.scl.compiler.tests%2Fsrc%2Forg%2Fsimantics%2Fscl%2Fcompiler%2Ftests%2Fscl%2FCHR3.scl;h=03df6896f3e84b637ed1d77e7bb33f9d72303049;hb=0ae2b770234dfc3cbb18bd38f324125cf0faca07;hp=0bba5413dc824b1e7bada829c0ea81b881c2d6d1;hpb=24e2b34260f219f0d1644ca7a138894980e25b14;p=simantics%2Fplatform.git diff --git a/tests/org.simantics.scl.compiler.tests/src/org/simantics/scl/compiler/tests/scl/CHR3.scl b/tests/org.simantics.scl.compiler.tests/src/org/simantics/scl/compiler/tests/scl/CHR3.scl index 0bba5413d..03df6896f 100644 --- a/tests/org.simantics.scl.compiler.tests/src/org/simantics/scl/compiler/tests/scl/CHR3.scl +++ b/tests/org.simantics.scl.compiler.tests/src/org/simantics/scl/compiler/tests/scl/CHR3.scl @@ -1,11 +1,11 @@ -import "Prelude" - -main = () - where - A ?x => print ?x - A ?x, not A (?x+1) => A (?x-1) - True => A 0 --- -() - - +import "Prelude" + +main = () + where + A ?x => print ?x + A ?x, not A (?x+1) => A (?x-1) + True => A 0 +-- +() + +