From 962b910318f792f7593782c166c3d129bc5a7be9 Mon Sep 17 00:00:00 2001
From: Tristan Colgate <tcolgate@gmail.com>
Date: Tue, 29 Jun 2010 09:14:33 +0100
Subject: [PATCH] Update #:procedure method for <applicable-struct>

* modules/oop/goop.scm (initialize-object-procedure): Use slot-set!
  instead of set-object-procedure!.
---
 module/oop/goops.scm | 4 ++--
 1 file 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)