guile/guile-core/libguile eval.c

[Mikael Djurfeldt]

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

Modified files:
        guile-core/libguile: eval.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/eval.c.diff?r1=1.177&r2=1.178

Patches:
Index: guile/guile-core/libguile/eval.c
diff -u guile/guile-core/libguile/eval.c:1.177 
guile/guile-core/libguile/eval.c:1.178
--- guile/guile-core/libguile/eval.c:1.177      Wed Oct 25 07:49:11 2000
+++ guile/guile-core/libguile/eval.c    Mon Nov  6 18:17:36 2000
@@ -2292,7 +2292,7 @@
                           [scm_si_hashsets + hashset];
                      t.arg1 = SCM_CDR (t.arg1);
                    }
-                 while (--j && SCM_NIMP (t.arg1));
+                 while (j-- && SCM_NIMP (t.arg1));
                i &= mask;
                end = i;
              }
@@ -2312,7 +2312,7 @@
                      t.arg1 = SCM_CDR (t.arg1);
                      z = SCM_CDR (z);
                    }
-                 while (--j && SCM_NIMP (t.arg1));
+                 while (j-- && SCM_NIMP (t.arg1));
                /* Fewer arguments than specifiers => CAR != ENV */
                if (!(SCM_IMP (SCM_CAR (z)) || SCM_CONSP (SCM_CAR (z))))
                  goto next_method;