[Top][All Lists]
[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
guile/guile-core/libguile objects.c
From: |
Mikael Djurfeldt |
Subject: |
guile/guile-core/libguile objects.c |
Date: |
Mon, 06 Nov 2000 18:18:11 -0800 |
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;
[Prev in Thread] |
Current Thread |
[Next in Thread] |
- guile/guile-core/libguile objects.c,
Mikael Djurfeldt <=