Fixed multiple issues causing dangling references to discarded queries

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

infixr 9 (.)

@private
@inline
(f . g) = \x -> f (g x)

@private
@inline
flip (x,y) = (y,x)

@private
@inline
flip4 = flip . flip . flip . flip

main = flip4 ("a", "b")
--
(a,b)