aboutsummaryrefslogtreecommitdiffstats
path: root/examples/purity-test.lisp
blob: 31e82d383cc98beb3a442e7b7e8ff968dc94ad5c (plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
(let! f (\[x] x))
(f 10)

(let! g! (\![x] (print! x)))
(g! "foo")

(let! h (\[x] (g! x)))
(h "bar")

(let! main! (\![]
    (print! (fmt "{0}\n" ["main"]))
    ))

(main!)

(let! pure-main (\[]
    (print! (fmt "{0}\n" ["pure-main"]))
    ))

(pure-main)