diff options
| author | Andy Wingo <wingo@pobox.com> | 2008-05-19 19:37:39 +0200 |
|---|---|---|
| committer | Andy Wingo <wingo@pobox.com> | 2008-05-19 19:37:39 +0200 |
| commit | 6297d22907ef28d6dc059db3bbcd711d9b7c50a1 (patch) | |
| tree | 3d23c3f8155b0fce6de1febf2d4dae13e6b589a3 /testsuite | |
| parent | 9cc649b880fe81ff4b2dd1929beb45ea313dee42 (diff) | |
| download | guile-6297d22907ef28d6dc059db3bbcd711d9b7c50a1.tar.gz | |
bind all module-level variables lazily
comments in ghil-lookup are pertinent.
* module/system/il/compile.scm (make-glil-var): Require that ghil vars
have environments. Remove the 'unresolved case -- we'll treat all
module-level variables as late bound.
* module/system/il/ghil.scm (ghil-lookup): Treat all module level vars as
late bound.
* module/system/vm/assemble.scm: Instead of vlink and vlate-bound, have
vlink-now and vlink-later.
(codegen): Add a bunch of crap to get the various cases right.
(object-assoc, dump-object!): Handle the new cases, remove the old
cases.
* src/vm_loader.c (link-now, link-later): Change from link and lazy-bind.
Include the module in which the link is to be done, so that callers
from other modules get the right behavior.
* src/vm_system.c (late-variable-ref, late-variable-set): Instead of a
sym, the unbound representation is a module name / symbol pair.
* testsuite/run-vm-tests.scm (run-vm-tests): Remove some debugging.
Diffstat (limited to 'testsuite')
| -rw-r--r-- | testsuite/run-vm-tests.scm | 6 |
1 files changed, 3 insertions, 3 deletions
diff --git a/testsuite/run-vm-tests.scm b/testsuite/run-vm-tests.scm index 19cb9e1cf..64568b171 100644 --- a/testsuite/run-vm-tests.scm +++ b/testsuite/run-vm-tests.scm @@ -74,9 +74,9 @@ equal in the sense of @var{equal?}." (format #t "running `~a'... " file) (if (catch #t (lambda () - (equal? (pk (compile/run-test-from-file file)) - (pk (eval (fetch-sexp-from-file file) - (interaction-environment))))) + (equal? (compile/run-test-from-file file) + (eval (fetch-sexp-from-file file) + (interaction-environment)))) (lambda (key . args) (format #t "[~a/~a] " key args) #f)) |