mirror/guile
mirror/guile
1
Fork 0
mirror of https://git.savannah.gnu.org/git/guile.git synced 2025-05-01 04:10:18 +02:00
Code Activity

* eval.c (SCM_IM_DISPATCH), objects.c (scm_mcache_lookup_cmethod):

Browse source 
Count n_specialized + 1 turns before letting a match through.
This commit is contained in:
Mikael Djurfeldt 2000-11-07 02:18:11 +00:00
parent 55c4a13240
commit 4ea6a43186
2 changed files with 4 additions and 4 deletions
Download patch file Download diff file Expand all files Collapse all files

4
libguile/objects.c
View file

@ -276,7 +276,7 @@ scm_mcache_lookup_cmethod (SCM cache, SCM args)
[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 @@ scm_mcache_lookup_cmethod (SCM cache, SCM args)
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;