Re-enabled Acorn transaction cancellation support for testing

[simantics/platform.git] / bundles / org.simantics.scl.compiler / tests / org / simantics / scl / compiler / tests / scl / DoubleEffect.scl

app :: (Integer -> <e1> Integer) -> <e1> ((Integer -> <e2> Integer) -> <e2> Integer)\r
app f = do\r
  a = f 1\r
  \g -> g a\r
  \r
main = app (\x -> x) (\x -> x)\r
--\r
1