diff options
author | Tristan Colgate <tcolgate@gmail.com> | 2010-06-29 09:14:33 +0100 |
---|---|---|
committer | Andy Wingo <wingo@pobox.com> | 2010-06-29 11:43:04 +0200 |
commit | 962b910318f792f7593782c166c3d129bc5a7be9 (patch) | |
tree | b392451ed41acd2dc6dcff37513b3884cd4899d9 | |
parent | d83eb93f45448338b0b77642f72a0f870ccd7451 (diff) | |
download | guile-962b910318f792f7593782c166c3d129bc5a7be9.tar.gz |
Update #:procedure method for <applicable-struct>
* modules/oop/goop.scm (initialize-object-procedure): Use slot-set!
instead of set-object-procedure!.
-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) |