[PATCH] Update #:procedure method for <applicable-struct>

[Tristan Colgate]

This updates the #:procedure method to use slot-set! instead of
set-object-procedure!.

---
 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 d0d65fa..9ebfab8 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)
-- 
1.6.6