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 / Record4.scl

// module Module
data Foo = Foo { x :: Integer }
--
import "Prelude"
import "Module" as M

f = M.Foo { x = 3 }
main = match f with
    M.Foo { x } -> x
-- 
3