testsuite/t-global-bindings.scm

   1 ;; Are global bindings reachable at run-time?  This relies on the
   2 ;; `object-ref' and `object-set' instructions.
   3
   4 (begin
   5
   6   (define the-binding "hello")
   7
   8   ((lambda () the-binding))
   9
  10   ((lambda () (set! the-binding "world")))
  11
  12   ((lambda () the-binding)))
  13