mirror/guile
mirror/guile
1
Fork 0
mirror of https://git.savannah.gnu.org/git/guile.git synced 2025-05-09 23:30:21 +02:00
Code Activity

* goops.c (scm_sys_invalidate_method_cache_x): Don't convert

Browse source 
scm_si_n_specialized from fixnum and don't take absolute value.
(Thanks to Lars J. Aas.)
This commit is contained in:
Mikael Djurfeldt 2000-11-07 02:17:58 +00:00
parent eb5c0a2a6c
commit 55c4a13240
1 changed files with 2 additions and 3 deletions
Download patch file Download diff file Expand all files Collapse all files

5
libguile/goops.c
View file

@ -1634,10 +1634,9 @@ scm_sys_invalidate_method_cache_x (SCM gf)
SCM_SLOT (SCM_CAR (methods), scm_si_code_table) = SCM_EOL;
}
{
int n = SCM_INUM (SCM_SLOT (gf, scm_si_n_specialized));
SCM n = SCM_SLOT (gf, scm_si_n_specialized);
/* The sign of n is a flag indicating rest args. */
SCM_SET_MCACHE_N_SPECIALIZED (SCM_ENTITY_PROCEDURE (gf),
SCM_MAKINUM (n >= 0 ? n : -n));
SCM_SET_MCACHE_N_SPECIALIZED (SCM_ENTITY_PROCEDURE (gf), n);
}
return SCM_UNSPECIFIED;
}