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

import "Prelude"

foo :: Integer -> <Proc> (Integer -> <Proc> ())
foo i = do
    print i
    \j -> print j

main = foo 3 4
--
3
4
()