diff options
Diffstat (limited to 'module/oop/goops.scm')
-rw-r--r-- | module/oop/goops.scm | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/module/oop/goops.scm b/module/oop/goops.scm index d0d65fa08..9ebfab80c 100644 --- a/module/oop/goops.scm +++ b/module/oop/goops.scm @@ -1453,9 +1453,9 @@ (let ((proc (get-keyword #:procedure initargs #f))) (cond ((not proc)) ((pair? proc) - (apply set-object-procedure! object proc)) + (apply slot-set! object 'procedure proc)) (else - (set-object-procedure! object proc))))) + (slot-set! object 'procedure proc))))) (define-method (initialize (applicable-struct <applicable-struct>) initargs) (next-method) |