mirror/guile
mirror/guile
1
Fork 0
mirror of https://git.savannah.gnu.org/git/guile.git synced 2025-05-20 11:40:18 +02:00
Code Activity

Avoid using 'eval-when' with 'expand' in (oop goops).

Browse source 
* module/oop/goops.scm: Avoid using 'eval-when' with 'expand'.
This commit is contained in:
Mark H Weaver 2014-02-07 20:05:17 -05:00
parent 9db57a19e1
commit 5bc7c6dbab
1 changed files with 8 additions and 3 deletions
Download patch file Download diff file Expand all files Collapse all files

11
module/oop/goops.scm
View file

@ -134,11 +134,16 @@
(define *goops-module* (current-module))
;; XXX FIXME: figure out why the 'eval-when's in this file must use
;; 'compile' and must avoid 'expand', but only in 2.2, and only when
;; compiling something that imports goops, e.g. (ice-9 occam-channel),
;; before (oop goops) itself has been compiled.
;; First initialize the builtin part of GOOPS
(eval-when (expand load eval)
(eval-when (compile load eval)
(%init-goops-builtins))
(eval-when (expand load eval)
(eval-when (compile load eval)
(use-modules ((language tree-il primitives) :select (add-interesting-primitive!)))
(add-interesting-primitive! 'class-of))
@ -149,7 +154,7 @@
;; FIXME: deprecate.
(eval-when (expand load eval)
(eval-when (compile load eval)
(define min-fixnum (- (expt 2 29)))
(define max-fixnum (- (expt 2 29) 1)))