HCoop
/
bpt
/
guile.git
/ blob
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
|
commitdiff
|
tree
blame
|
history
|
raw
|
HEAD
Merge remote-tracking branch 'origin/stable-2.0'
[bpt/guile.git]
/
test-suite
/
vm
/
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