summaryrefslogtreecommitdiff
diff options
context:
space:
mode:
authorTristan Colgate <tcolgate@gmail.com>2010-06-29 09:14:33 +0100
committerAndy Wingo <wingo@pobox.com>2010-06-29 11:43:04 +0200
commit962b910318f792f7593782c166c3d129bc5a7be9 (patch)
treeb392451ed41acd2dc6dcff37513b3884cd4899d9
parentd83eb93f45448338b0b77642f72a0f870ccd7451 (diff)
downloadguile-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.scm4
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)