unofficial mirror of guile-devel@gnu.org 
 help / color / mirror / Atom feed
* [PATCH] Update #:procedure method for <applicable-struct>
@ 2010-06-29  8:14 Tristan Colgate
  2010-06-29  9:43 ` Andy Wingo
  0 siblings, 1 reply; 2+ messages in thread
From: Tristan Colgate @ 2010-06-29  8:14 UTC (permalink / raw)
  To: guile-devel

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



^ permalink raw reply related	[flat|nested] 2+ messages in thread

* Re: [PATCH] Update #:procedure method for <applicable-struct>
  2010-06-29  8:14 [PATCH] Update #:procedure method for <applicable-struct> Tristan Colgate
@ 2010-06-29  9:43 ` Andy Wingo
  0 siblings, 0 replies; 2+ messages in thread
From: Andy Wingo @ 2010-06-29  9:43 UTC (permalink / raw)
  To: Tristan Colgate; +Cc: guile-devel

On Tue 29 Jun 2010 10:14, Tristan Colgate <tcolgate@gmail.com> writes:

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

Applied, thanks.

Andy
-- 
http://wingolog.org/



^ permalink raw reply	[flat|nested] 2+ messages in thread

end of thread, other threads:[~2010-06-29  9:43 UTC | newest]

Thread overview: 2+ messages (download: mbox.gz follow: Atom feed
-- links below jump to the message on this page --
2010-06-29  8:14 [PATCH] Update #:procedure method for <applicable-struct> Tristan Colgate
2010-06-29  9:43 ` Andy Wingo

This is a public inbox, see mirroring instructions
for how to clone and mirror all data and code used for this inbox;
as well as URLs for read-only IMAP folder(s) and NNTP newsgroup(s).