summaryrefslogtreecommitdiff
path: root/module/oop/goops.scm
diff options
context:
space:
mode:
Diffstat (limited to 'module/oop/goops.scm')
-rw-r--r--module/oop/goops.scm6
1 files changed, 3 insertions, 3 deletions
diff --git a/module/oop/goops.scm b/module/oop/goops.scm
index dd993ded2..d944da264 100644
--- a/module/oop/goops.scm
+++ b/module/oop/goops.scm
@@ -1086,17 +1086,17 @@
(if (unbound? x)
(slot-unbound obj)
x)))
- *goops-module*))
+ #:env *goops-module*))
(define (make-get index)
((@ (system base compile) compile)
`(lambda (o) (@slot-ref o ,index))
- *goops-module*))
+ #:env *goops-module*))
(define (make-set index)
((@ (system base compile) compile)
`(lambda (o v) (@slot-set! o ,index v))
- *goops-module*))
+ #:env *goops-module*))
(define bound-check-get
(standard-accessor-method make-bound-check-get bound-check-get-methods))