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

while :: (<e> Boolean) -> (<e> a) -> <e> ()
while cond body = loop ()
  where loop _ = if cond
                 then do body ; loop ()
                 else ()

main = "FOO"
--
FOO