summaryrefslogtreecommitdiff
path: root/tests/clos5.bth
blob: f4202b90ad615937eb60e224ef861b5b49e4f473 (plain)
1
2
3
4
5
6
7
8
(defn (f) 
  (def x 0)
  (defn (i) x)
  (set! x 100)
  i)

(say ((f)))