From mboxrd@z Thu Jan 1 00:00:00 1970 Path: news.gmane.org!not-for-mail From: Tristan Colgate Newsgroups: gmane.lisp.guile.devel Subject: [PATCH] Update #:procedure method for Date: Tue, 29 Jun 2010 09:14:33 +0100 Message-ID: NNTP-Posting-Host: lo.gmane.org Mime-Version: 1.0 Content-Type: text/plain; charset=ISO-8859-1 X-Trace: dough.gmane.org 1277799296 20020 80.91.229.12 (29 Jun 2010 08:14:56 GMT) X-Complaints-To: usenet@dough.gmane.org NNTP-Posting-Date: Tue, 29 Jun 2010 08:14:56 +0000 (UTC) To: guile-devel@gnu.org Original-X-From: guile-devel-bounces+guile-devel=m.gmane.org@gnu.org Tue Jun 29 10:14:54 2010 Return-path: Envelope-to: guile-devel@m.gmane.org Original-Received: from lists.gnu.org ([199.232.76.165]) by lo.gmane.org with esmtp (Exim 4.69) (envelope-from ) id 1OTVxx-0000K8-Ir for guile-devel@m.gmane.org; Tue, 29 Jun 2010 10:14:49 +0200 Original-Received: from localhost ([127.0.0.1]:39073 helo=lists.gnu.org) by lists.gnu.org with esmtp (Exim 4.43) id 1OTVxw-000523-Pv for guile-devel@m.gmane.org; Tue, 29 Jun 2010 04:14:48 -0400 Original-Received: from [140.186.70.92] (port=51114 helo=eggs.gnu.org) by lists.gnu.org with esmtp (Exim 4.43) id 1OTVxn-00050Q-VV for guile-devel@gnu.org; Tue, 29 Jun 2010 04:14:41 -0400 Original-Received: from Debian-exim by eggs.gnu.org with spam-scanned (Exim 4.69) (envelope-from ) id 1OTVxm-0007gY-Uo for guile-devel@gnu.org; Tue, 29 Jun 2010 04:14:39 -0400 Original-Received: from mail-ww0-f41.google.com ([74.125.82.41]:38821) by eggs.gnu.org with esmtp (Exim 4.69) (envelope-from ) id 1OTVxm-0007gS-Qp for guile-devel@gnu.org; Tue, 29 Jun 2010 04:14:38 -0400 Original-Received: by wwf26 with SMTP id 26so3721664wwf.0 for ; Tue, 29 Jun 2010 01:14:35 -0700 (PDT) DKIM-Signature: v=1; a=rsa-sha256; c=relaxed/relaxed; d=gmail.com; s=gamma; h=domainkey-signature:mime-version:received:received:date:message-id :subject:from:to:content-type; bh=zNlZ85QtYv9GXYNcNJb878jwQq0yVAO8OhghdMv4OHg=; b=bLKFOyztE8BtxpHfLD+YT9vm6B+8CmrXqcXHE9k6t44sByNiX3+j5DowFfX8boXwjj PtyZRSDdYX27JKLiRzR75Nr7iWWkhhZIPBfNm5teDNWTMsdhJNdWrIslBTEDaV2wCBup jVLa/CzSziEYjsqvSBFXTbMqyr1Git7eXcn1E= DomainKey-Signature: a=rsa-sha1; c=nofws; d=gmail.com; s=gamma; h=mime-version:date:message-id:subject:from:to:content-type; b=FRHuYSNcIJU3u9s/8IBBtRGZRG7RDR4iu0hA/AzA9733pZSdCgLZa7Hj004f5e9nMF 9knOXI190LNILf9hePXUvPA9MoDQ/ulM4RTpC++KAZFYcCzU4limDIFBW1Q32TEOJHIk WY6RmttzSuHHAHlWUjHdCDTBB1vSw6CStY58g= Original-Received: by 10.216.171.139 with SMTP id r11mr4779373wel.31.1277799273940; Tue, 29 Jun 2010 01:14:33 -0700 (PDT) Original-Received: by 10.216.179.79 with HTTP; Tue, 29 Jun 2010 01:14:33 -0700 (PDT) X-detected-operating-system: by eggs.gnu.org: GNU/Linux 2.6 (newer, 2) X-BeenThere: guile-devel@gnu.org X-Mailman-Version: 2.1.5 Precedence: list List-Id: "Developers list for Guile, the GNU extensibility library" List-Unsubscribe: , List-Archive: List-Post: List-Help: List-Subscribe: , Original-Sender: guile-devel-bounces+guile-devel=m.gmane.org@gnu.org Errors-To: guile-devel-bounces+guile-devel=m.gmane.org@gnu.org Xref: news.gmane.org gmane.lisp.guile.devel:10585 Archived-At: 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 ) initargs) (next-method) -- 1.6.6