guile/guile-core/libguile objects.c

[Mikael Djurfeldt]

CVSROOT:        /cvs
Module name:    guile
Changes by:     Mikael Djurfeldt <address@hidden>       00/11/06 18:18:11

Modified files:
        guile-core/libguile: objects.c 

Log message:
        * eval.c (SCM_IM_DISPATCH), objects.c (scm_mcache_lookup_cmethod):
        Count n_specialized + 1 turns before letting a match through.

CVSWeb URLs:
http://subversions.gnu.org/cgi-bin/cvsweb/guile/guile-core/libguile/objects.c.diff?r1=1.51&r2=1.52

Patches:
Index: guile/guile-core/libguile/objects.c
diff -u guile/guile-core/libguile/objects.c:1.51 
guile/guile-core/libguile/objects.c:1.52
--- guile/guile-core/libguile/objects.c:1.51    Thu Nov  2 02:36:31 2000
+++ guile/guile-core/libguile/objects.c Mon Nov  6 18:18:11 2000
@@ -276,7 +276,7 @@
                 [scm_si_hashsets + hashset];
            ls = SCM_CDR (ls);
          }
-       while (--j && SCM_NIMP (ls));
+       while (j-- && SCM_NIMP (ls));
       i &= mask;
       end = i;
     }
@@ -296,7 +296,7 @@
            ls = SCM_CDR (ls);
            z = SCM_CDR (z);
          }
-       while (--j && SCM_NIMP (ls));
+       while (j-- && SCM_NIMP (ls));
       /* Fewer arguments than specifiers => CAR != ENV */
       if (!(SCM_IMP (SCM_CAR (z)) || SCM_CONSP (SCM_CAR (z))))
        goto next_method;