tests/clos2.bth


1
2
3
4
5
6
7
8
9
10
11
12
13
14
15

(defn (k1 x)
	(fn () x))
(defn (k2 x)
	(let (v x)
		(fn () v)))
(def a1 (k1 100))
(def a2 (k2 200))
(def b1 (k1 "hello 1"))
(def b2 (k2 "hello 2"))
(say (a1))
(say (a2))
(say (b1))
(say (b2))
(say (a1))
(say (a2))