mirror/guile
mirror/guile
1
Fork 0
mirror of https://git.savannah.gnu.org/git/guile.git synced 2025-06-18 09:40:25 +02:00
Code Activity

Moved scm_memoize_method back to eval.c.

Browse source
This commit is contained in:
Mikael Djurfeldt 1999-08-30 02:18:35 +00:00
parent 61364ba686
commit 0824bbb3f5
1 changed files with 1 additions and 3 deletions
Download patch file Download diff file Expand all files Collapse all files

4
libguile/objects.c
View file

@ -299,7 +299,7 @@ scm_mcache_lookup_cmethod (SCM cache, SCM args)
} }
while (--j && SCM_NIMP (ls)); while (--j && SCM_NIMP (ls));
/* Fewer arguments than specifiers => CAR != ENV */ /* Fewer arguments than specifiers => CAR != ENV */
if (!SCM_CONSP (SCM_CAR (z))) if (!(SCM_IMP (SCM_CAR (z)) || SCM_CONSP (SCM_CAR (z))))
goto next_method; goto next_method;
return z; return z;
next_method: next_method:
@ -308,8 +308,6 @@ scm_mcache_lookup_cmethod (SCM cache, SCM args)
return SCM_BOOL_F; return SCM_BOOL_F;
} }
SCM (*scm_memoize_method) (SCM, SCM);
SCM SCM
scm_mcache_compute_cmethod (SCM cache, SCM args) scm_mcache_compute_cmethod (SCM cache, SCM args)
{ {