Fixed multiple issues causing dangling references to discarded queries

[simantics/platform.git] / tests / scl / ValueAsOperator.scl

data List a = Nil | Cons a (List a)

data Foo = Foo

main = Foo `Cons` (Foo `Cons` Nil)
--
(Cons Foo (Cons Foo Nil))