tests/clos3.bth


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

(defn (counter)
	(let (a 0)
		(fn ()
			(set! a (+ a 1))
			(say a))))
(def c1 (counter))
(def c2 (counter))
(c1)
(c1)
(c2)
(c2)
(c2)
(c2)
(c1)
(c1)