diff options
Diffstat (limited to 'module/oop/goops.scm')
-rw-r--r-- | module/oop/goops.scm | 6 |
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)) |