mirror of
https://git.savannah.gnu.org/git/guile.git
synced 2025-04-29 19:30:36 +02:00
0b5f0e49a8
object file is too small. * doc/guile-vm.texi: Documented `make-closure'. Improved the documentation of `load-program'. * testsuite: New directory. * configure.in: Added `testsuite/Makefile' to `AC_OUTPUT'. * Makefile.am (SUBDIRS): Added `testsuite'. * src/vm_engine.h (VM_CHECK_OBJECT): New option. (CHECK_OBJECT): New macro. * src/vm_system.c (object-ref): Use VM_CHECK_OBJECT. * module/system/vm/assemble.scm (preprocess): Commented out the debugging code. * benchmark/lib.scm (do-loop): New procedure. git-archimport-id: lcourtes@laas.fr--2005-mobile/guile-vm--mobile--0.6--patch-2
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)))
|
|
|