summaryrefslogtreecommitdiff
path: root/module/oop/goops/compile.scm
diff options
context:
space:
mode:
authorMark H Weaver <mhw@netris.org>2014-01-23 10:09:29 -0500
committerMark H Weaver <mhw@netris.org>2014-01-23 10:41:22 -0500
commitf6ddf827f8f192af7a8cd255bd8374a0d38bbb74 (patch)
tree1539215fce244f478f30a1881ba35446e041415d /module/oop/goops/compile.scm
parentfc1cb3fad4c9186974edd7f899465e07c6377c8b (diff)
downloadguile-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.scm2
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)