mirror of
https://git.savannah.gnu.org/git/guile.git
synced 2025-04-30 11:50:28 +02:00
aa592f96b0
* testsuite: Move to... * test-suite/vm: ... here. * Makefile.am (SUBDIRS): Remove `testsuite'. * configure.ac: Output `test-suite/vm/Makefile' instead of `testsuite/Makefile'. * test-suite/Makefile.am (SUBDIRS): Add `vm'.
13 lines
257 B
Scheme
13 lines
257 B
Scheme
;; 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)))
|
|
|