From 55c4a1324010fe863ffda9c827d434b4da5c074c Mon Sep 17 00:00:00 2001 From: Mikael Djurfeldt Date: Tue, 7 Nov 2000 02:17:58 +0000 Subject: [PATCH] * goops.c (scm_sys_invalidate_method_cache_x): Don't convert scm_si_n_specialized from fixnum and don't take absolute value. (Thanks to Lars J. Aas.) --- libguile/goops.c | 5 ++--- 1 file changed, 2 insertions(+), 3 deletions(-) diff --git a/libguile/goops.c b/libguile/goops.c index a470ab65a..485d067a3 100644 --- a/libguile/goops.c +++ b/libguile/goops.c @@ -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; }