[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
[Guile-commits] 01/03: Use 'scm_is_eq' to compare 'SCM' objects.
|
From: |
Ludovic Courtès |
|
Subject: |
[Guile-commits] 01/03: Use 'scm_is_eq' to compare 'SCM' objects. |
|
Date: |
Wed, 04 Mar 2015 08:50:17 +0000 |
civodul pushed a commit to branch stable-2.0
in repository guile.
commit b4f7e24c84fbf34313ac1d5ce834b4e752bef901
Author: Ludovic Courtès <address@hidden>
Date: Wed Mar 4 09:36:32 2015 +0100
Use 'scm_is_eq' to compare 'SCM' objects.
* libguile/goops.c (scm_compute_applicable_methods): Use 'scm_is_eq'
rather than direct comparison (regression introduced in 649ec8d8.)
---
libguile/goops.c | 2 +-
1 files changed, 1 insertions(+), 1 deletions(-)
diff --git a/libguile/goops.c b/libguile/goops.c
index 9fd61b5..e0dc160 100644
--- a/libguile/goops.c
+++ b/libguile/goops.c
@@ -2094,7 +2094,7 @@ scm_compute_applicable_methods (SCM gf, SCM args, long
len, int find_method_p)
{
fl = SPEC_OF (SCM_CAR (l));
/* Only accept accessors which match exactly in first arg. */
- if ((scm_is_null (fl) || types[0] != SCM_CAR (fl))
+ if ((scm_is_null (fl) || !scm_is_eq (types[0], SCM_CAR (fl)))
&& is_accessor_method (SCM_CAR (l)))
continue;
for (i = 0; ; i++, fl = SCM_CDR (fl))