guile/guile-core/libguile goops.c

[Mikael Djurfeldt]

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

Modified files:
        guile-core/libguile: goops.c 

Log message:
        * 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.)

CVSWeb URLs:
http://subversions.gnu.org/cgi-bin/cvsweb/guile/guile-core/libguile/goops.c.diff?r1=1.2&r2=1.3

Patches:
Index: guile/guile-core/libguile/goops.c
diff -u guile/guile-core/libguile/goops.c:1.2 
guile/guile-core/libguile/goops.c:1.3
--- guile/guile-core/libguile/goops.c:1.2       Thu Nov  2 02:36:31 2000
+++ guile/guile-core/libguile/goops.c   Mon Nov  6 18:17:58 2000
@@ -1634,10 +1634,9 @@
        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;
 }