]> gerrit.simantics Code Review - simantics/platform.git/blob - tests/scl/MonadSyntax3.scl
Fixed multiple issues causing dangling references to discarded queries
[simantics/platform.git] / tests / scl / MonadSyntax3.scl
1 import "Prelude"
2
3 a = ["a", "b"]
4 b = [1, 2]
5
6 main = edo 
7   x <- a
8   return $ print x
9   y <- b
10   return $ print y
11 --
12 a
13 1
14 2
15 b
16 1
17 2
18 [(), (), (), ()]