testsuite/t-global-bindings.scm


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

;; Are global bindings reachable at run-time?  This relies on the
;; `object-ref' and `object-set' instructions.

(begin

  (define the-binding "hello")

  ((lambda () the-binding))

  ((lambda () (set! the-binding "world")))

  ((lambda () the-binding)))