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%2FGuards1.scl;h=28f2e7ed2dbab9e28e446cf08794dcd2f19c9be9;hb=1ed310d4abb7444048b899f27822ec29a0d35e94;hp=db3b438330d5dd1c145c26bc878ca9e940f26235;hpb=5930811a7911090a0c4984380c3b45ed81a93cde;p=simantics%2Fplatform.git diff --git a/tests/org.simantics.scl.compiler.tests/src/org/simantics/scl/compiler/tests/scl/Guards1.scl b/tests/org.simantics.scl.compiler.tests/src/org/simantics/scl/compiler/tests/scl/Guards1.scl index db3b43833..28f2e7ed2 100644 --- a/tests/org.simantics.scl.compiler.tests/src/org/simantics/scl/compiler/tests/scl/Guards1.scl +++ b/tests/org.simantics.scl.compiler.tests/src/org/simantics/scl/compiler/tests/scl/Guards1.scl @@ -1,9 +1,9 @@ -import "Prelude" - -fib :: Integer -> Integer -fib x | x <= 2 = 1 - | True = fib (x-1) + fib (x-2) - -main = fib 13 --- +import "Prelude" + +fib :: Integer -> Integer +fib x | x <= 2 = 1 + | True = fib (x-1) + fib (x-2) + +main = fib 13 +-- 233 \ No newline at end of file