From mboxrd@z Thu Jan 1 00:00:00 1970 Path: news.gmane.org!not-for-mail From: David Kastrup Newsgroups: gmane.lisp.guile.bugs Subject: bug#18495: [PATCH] Fix SCM_SMOB_OBJECT{_,_0_,_1_,_2_,_3_}LOC Date: Thu, 18 Sep 2014 10:40:55 +0200 Message-ID: <1411029655-357-1-git-send-email-dak@gnu.org> References: <1411025555-32284-1-git-send-email-dak@gnu.org> NNTP-Posting-Host: plane.gmane.org X-Trace: ger.gmane.org 1411030294 15456 80.91.229.3 (18 Sep 2014 08:51:34 GMT) X-Complaints-To: usenet@ger.gmane.org NNTP-Posting-Date: Thu, 18 Sep 2014 08:51:34 +0000 (UTC) Cc: David Kastrup To: 18495@debbugs.gnu.org Original-X-From: bug-guile-bounces+guile-bugs=m.gmane.org@gnu.org Thu Sep 18 10:51:25 2014 Return-path: Envelope-to: guile-bugs@m.gmane.org Original-Received: from lists.gnu.org ([208.118.235.17]) by plane.gmane.org with esmtp (Exim 4.69) (envelope-from ) id 1XUXQy-0003sr-Qo for guile-bugs@m.gmane.org; Thu, 18 Sep 2014 10:51:24 +0200 Original-Received: from localhost ([::1]:49153 helo=lists.gnu.org) by lists.gnu.org with esmtp (Exim 4.71) (envelope-from ) id 1XUXQy-00040E-2E for guile-bugs@m.gmane.org; Thu, 18 Sep 2014 04:51:24 -0400 Original-Received: from eggs.gnu.org ([2001:4830:134:3::10]:40712) by lists.gnu.org with esmtp (Exim 4.71) (envelope-from ) id 1XUXQo-0003st-OF for bug-guile@gnu.org; Thu, 18 Sep 2014 04:51:19 -0400 Original-Received: from Debian-exim by eggs.gnu.org with spam-scanned (Exim 4.71) (envelope-from ) id 1XUXQi-0007Ki-2O for bug-guile@gnu.org; Thu, 18 Sep 2014 04:51:14 -0400 Original-Received: from debbugs.gnu.org ([140.186.70.43]:52355) by eggs.gnu.org with esmtp (Exim 4.71) (envelope-from ) id 1XUXQh-0007Jd-VE for bug-guile@gnu.org; Thu, 18 Sep 2014 04:51:07 -0400 Original-Received: from Debian-debbugs by debbugs.gnu.org with local (Exim 4.80) (envelope-from ) id 1XUXHu-0000jY-4S for bug-guile@gnu.org; Thu, 18 Sep 2014 04:42:02 -0400 X-Loop: help-debbugs@gnu.org In-Reply-To: <1411025555-32284-1-git-send-email-dak@gnu.org> Resent-From: David Kastrup Original-Sender: "Debbugs-submit" Resent-CC: bug-guile@gnu.org Resent-Date: Thu, 18 Sep 2014 08:42:02 +0000 Resent-Message-ID: Resent-Sender: help-debbugs@gnu.org X-GNU-PR-Message: followup 18495 X-GNU-PR-Package: guile X-GNU-PR-Keywords: patch Original-Received: via spool by 18495-submit@debbugs.gnu.org id=B18495.14110296642735 (code B ref 18495); Thu, 18 Sep 2014 08:42:02 +0000 Original-Received: (at 18495) by debbugs.gnu.org; 18 Sep 2014 08:41:04 +0000 Original-Received: from localhost ([127.0.0.1]:43914 helo=debbugs.gnu.org) by debbugs.gnu.org with esmtp (Exim 4.80) (envelope-from ) id 1XUXGw-0000hs-F3 for submit@debbugs.gnu.org; Thu, 18 Sep 2014 04:41:03 -0400 Original-Received: from fencepost.gnu.org ([208.118.235.10]:42452) by debbugs.gnu.org with esmtp (Exim 4.80) (envelope-from ) id 1XUXGt-0000hT-FD for 18495@debbugs.gnu.org; Thu, 18 Sep 2014 04:41:00 -0400 Original-Received: from localhost ([127.0.0.1]:49759 helo=lola) by fencepost.gnu.org with esmtp (Exim 4.71) (envelope-from ) id 1XUXGs-0001T7-Rf; Thu, 18 Sep 2014 04:40:59 -0400 Original-Received: by lola (Postfix, from userid 1000) id 5E831E07B0; Thu, 18 Sep 2014 10:40:58 +0200 (CEST) X-Mailer: git-send-email 1.9.1 X-BeenThere: debbugs-submit@debbugs.gnu.org X-Mailman-Version: 2.1.15 Precedence: list X-detected-operating-system: by eggs.gnu.org: GNU/Linux 3.x X-Received-From: 140.186.70.43 X-BeenThere: bug-guile@gnu.org List-Id: "Bug reports for GUILE, GNU's Ubiquitous Extension Language" List-Unsubscribe: , List-Archive: List-Post: List-Help: List-Subscribe: , Errors-To: bug-guile-bounces+guile-bugs=m.gmane.org@gnu.org Original-Sender: bug-guile-bounces+guile-bugs=m.gmane.org@gnu.org Xref: news.gmane.org gmane.lisp.guile.bugs:7551 Archived-At: * libguile/smob.h (SCM_SMOB_OBJECT_LOC, SCM_SMOB_OBJECT_0_LOC) (SCM_SMOB_OBJECT_1_LOC, SCM_SMOB_OBJECT_2_LOC) (SCM_SMOB_OBJECT_3_LOC): These elementary API macros have been broken by commit 56164dc47f6616b359f0ad23be208f01a77b55fa in 2009 Signed-off-by: David Kastrup --- libguile/smob.h | 10 +++++----- 1 file changed, 5 insertions(+), 5 deletions(-) diff --git a/libguile/smob.h b/libguile/smob.h index 60abe37..f910a24 100644 --- a/libguile/smob.h +++ b/libguile/smob.h @@ -156,14 +156,14 @@ scm_new_double_smob (scm_t_bits tc, scm_t_bits data1, #define SCM_SET_SMOB_OBJECT_1(x,obj) (SCM_SET_SMOB_OBJECT_N ((x), 1, (obj))) #define SCM_SET_SMOB_OBJECT_2(x,obj) (SCM_SET_SMOB_OBJECT_N ((x), 2, (obj))) #define SCM_SET_SMOB_OBJECT_3(x,obj) (SCM_SET_SMOB_OBJECT_N ((x), 3, (obj))) -#define SCM_SMOB_OBJECT_0_LOC(x) (SCM_SMOB_OBJECT_N_LOC ((x), 0))) -#define SCM_SMOB_OBJECT_1_LOC(x) (SCM_SMOB_OBJECT_N_LOC ((x), 1))) -#define SCM_SMOB_OBJECT_2_LOC(x) (SCM_SMOB_OBJECT_N_LOC ((x), 2))) -#define SCM_SMOB_OBJECT_3_LOC(x) (SCM_SMOB_OBJECT_N_LOC ((x), 3))) +#define SCM_SMOB_OBJECT_0_LOC(x) (SCM_SMOB_OBJECT_N_LOC ((x), 0)) +#define SCM_SMOB_OBJECT_1_LOC(x) (SCM_SMOB_OBJECT_N_LOC ((x), 1)) +#define SCM_SMOB_OBJECT_2_LOC(x) (SCM_SMOB_OBJECT_N_LOC ((x), 2)) +#define SCM_SMOB_OBJECT_3_LOC(x) (SCM_SMOB_OBJECT_N_LOC ((x), 3)) #define SCM_SMOB_OBJECT(x) (SCM_SMOB_OBJECT_1 (x)) #define SCM_SET_SMOB_OBJECT(x,obj) (SCM_SET_SMOB_OBJECT_1 ((x), (obj))) -#define SCM_SMOB_OBJECT_LOC(x) (SCM_SMOB_OBJECT_1_LOC (x))) +#define SCM_SMOB_OBJECT_LOC(x) (SCM_SMOB_OBJECT_1_LOC (x)) #define SCM_SMOB_APPLY_0(x) (scm_call_0 (x)) -- 1.9.1