X-Git-Url: https://gerrit.simantics.org/r/gitweb?a=blobdiff_plain;ds=sidebyside;f=tests%2Forg.simantics.scl.compiler.tests%2Fsrc%2Forg%2Fsimantics%2Fscl%2Fcompiler%2Ftests%2Fscl%2FConjunctionMacro.scl;h=819805063dd191f2db7834c990bf052cca0bf636;hb=172abed5dbf73c1304a7a95bb8504ea293556948;hp=99188f8bbef42d30dd2dfb2a37ab256facdd4845;hpb=2a8d452434358e28cb826744bc01755a46455afd;p=simantics%2Fplatform.git diff --git a/tests/org.simantics.scl.compiler.tests/src/org/simantics/scl/compiler/tests/scl/ConjunctionMacro.scl b/tests/org.simantics.scl.compiler.tests/src/org/simantics/scl/compiler/tests/scl/ConjunctionMacro.scl index 99188f8bb..819805063 100644 --- a/tests/org.simantics.scl.compiler.tests/src/org/simantics/scl/compiler/tests/scl/ConjunctionMacro.scl +++ b/tests/org.simantics.scl.compiler.tests/src/org/simantics/scl/compiler/tests/scl/ConjunctionMacro.scl @@ -1,6 +1,6 @@ -(&&) :: Boolean -> ( Boolean) -> Boolean -a && b = if a then b else False - -main = False && fail "Should not be evaluated!" --- +(&&) :: Boolean -> ( Boolean) -> Boolean +a && b = if a then b else False + +main = False && fail "Should not be evaluated!" +-- false \ No newline at end of file