mirror/guile
mirror/guile
1
Fork 0
mirror of https://git.savannah.gnu.org/git/guile.git synced 2025-05-20 19:50:24 +02:00
Code Activity

Use 'scm_is_eq' to compare 'SCM' objects.

Browse source 
* libguile/goops.c (scm_compute_applicable_methods): Use 'scm_is_eq'
  rather than direct comparison (regression introduced in 649ec8d8.)
This commit is contained in:
Ludovic Courtès 2015-03-04 09:36:32 +01:00
parent 15673f1fd2
commit b4f7e24c84
1 changed files with 1 additions and 1 deletions
Download patch file Download diff file Expand all files Collapse all files

2
libguile/goops.c
View file

@ -2094,7 +2094,7 @@ scm_compute_applicable_methods (SCM gf, SCM args, long len, int find_method_p)
{ {
fl = SPEC_OF (SCM_CAR (l)); fl = SPEC_OF (SCM_CAR (l));
/* Only accept accessors which match exactly in first arg. */ /* 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))) && is_accessor_method (SCM_CAR (l)))
continue; continue;
for (i = 0; ; i++, fl = SCM_CDR (fl)) for (i = 0; ; i++, fl = SCM_CDR (fl))