diff options
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 856d41a70..edf956ea7 100644 --- a/module/oop/goops/compile.scm +++ b/module/oop/goops/compile.scm @@ -148,7 +148,7 @@ ,@(improper->proper formals))) (apply ,next-method-sym args))))) ,@body))) - (slot-ref method 'compile-env)))) + #:env (slot-ref method 'compile-env)))) (list-set! (program-external cmethod) 0 (make-next-method (method-generic-function method) (cdr methods) |