diff options
author | Mark H Weaver <mhw@netris.org> | 2014-01-23 10:09:29 -0500 |
---|---|---|
committer | Mark H Weaver <mhw@netris.org> | 2014-01-23 10:41:22 -0500 |
commit | f6ddf827f8f192af7a8cd255bd8374a0d38bbb74 (patch) | |
tree | 1539215fce244f478f30a1881ba35446e041415d /module/oop/goops/compile.scm | |
parent | fc1cb3fad4c9186974edd7f899465e07c6377c8b (diff) | |
download | guile-f6ddf827f8f192af7a8cd255bd8374a0d38bbb74.tar.gz |
Improve correctness and consistency of 'eval-when' usage.
* module/ice-9/boot-9.scm:
* module/ice-9/i18n.scm:
* module/ice-9/poll.scm:
* module/ice-9/popen.scm:
* module/ice-9/r6rs-libraries.scm:
* module/oop/goops.scm:
* module/oop/goops/compile.scm:
* module/oop/goops/dispatch.scm:
* module/srfi/srfi-88.scm:
* module/system/foreign.scm:
* module/texinfo/serialize.scm: Change most uses of 'compile' to
'expand', except where we must avoid it during initial bootstrap
before the module system is loaded. Remove redundant uses of
'compile' where 'expand' is also given. Standardize on the
"(expand load eval)" order of conditions.
Diffstat (limited to 'module/oop/goops/compile.scm')
-rw-r--r-- | module/oop/goops/compile.scm | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/module/oop/goops/compile.scm b/module/oop/goops/compile.scm index ace89b4bc..8c546e03f 100644 --- a/module/oop/goops/compile.scm +++ b/module/oop/goops/compile.scm @@ -19,7 +19,7 @@ ;; There are circularities here; you can't import (oop goops compile) ;; before (oop goops). So when compiling, make sure that things are ;; kosher. -(eval-when (compile) (resolve-module '(oop goops))) +(eval-when (expand) (resolve-module '(oop goops))) (define-module (oop goops compile) :use-module (oop goops) |