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