Merge commit 'ffdf837'

[simantics/platform.git] / tests / org.simantics.scl.compiler.tests / src / org / simantics / scl / compiler / tests / scl / Macros4.scl

@macro\r
@inline\r
($) :: (a -> <e> b) -> a -> <e> b\r
f $ x = f x\r
\r
justExecute :: (() -> a) -> a\r
justExecute f = f ()\r
\r
main :: Integer\r
main = justExecute $ \() -> (13 :: Integer)\r
--\r
13