diff options
Diffstat (limited to 'testsuite/t-global-bindings.scm')
| -rw-r--r-- | testsuite/t-global-bindings.scm | 13 |
1 files changed, 13 insertions, 0 deletions
diff --git a/testsuite/t-global-bindings.scm b/testsuite/t-global-bindings.scm new file mode 100644 index 000000000..c8ae3692c --- /dev/null +++ b/testsuite/t-global-bindings.scm @@ -0,0 +1,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))) + |