X-Git-Url: https://gerrit.simantics.org/r/gitweb?p=simantics%2Fplatform.git;a=blobdiff_plain;f=tests%2Forg.simantics.scl.compiler.tests%2Fsrc%2Forg%2Fsimantics%2Fscl%2Fcompiler%2Ftests%2Fscl%2FMacros4.scl;h=1122bcd3a177cdb3d2147407e340e831a303c81f;hp=87e41e0af91fbc6e7ea244bb002e2c212fc0b72f;hb=HEAD;hpb=bb5a3edf299cb943999c72c69dd68fb740c8a506 diff --git a/tests/org.simantics.scl.compiler.tests/src/org/simantics/scl/compiler/tests/scl/Macros4.scl b/tests/org.simantics.scl.compiler.tests/src/org/simantics/scl/compiler/tests/scl/Macros4.scl index 87e41e0af..1122bcd3a 100644 --- a/tests/org.simantics.scl.compiler.tests/src/org/simantics/scl/compiler/tests/scl/Macros4.scl +++ b/tests/org.simantics.scl.compiler.tests/src/org/simantics/scl/compiler/tests/scl/Macros4.scl @@ -1,12 +1,12 @@ -@macro -@inline -($) :: (a -> b) -> a -> b -f $ x = f x - -justExecute :: (() -> a) -> a -justExecute f = f () - -main :: Integer -main = justExecute $ \() -> (13 :: Integer) --- +@macro +@inline +($) :: (a -> b) -> a -> b +f $ x = f x + +justExecute :: (() -> a) -> a +justExecute f = f () + +main :: Integer +main = justExecute $ \() -> (13 :: Integer) +-- 13 \ No newline at end of file