[bpt/guile.git] / test-suite / vm / t-global-bindings.scm

;; 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)))
Commit	Line	Data
0b5f0e49 LC	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