Moved scm_memoize_method back to eval.c.

diff --git a/libguile/objects.c b/libguile/objects.c
index b1ad7a4..afd9af0 100644 (file)
--- a/libguile/objects.c
+++ b/libguile/objects.c
@@ -299,7 +299,7 @@ scm_mcache_lookup_cmethod (SCM cache, SCM args)
          }
        while (--j && SCM_NIMP (ls));
       /* 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;
       return z;
     next_method:
@@ -308,8 +308,6 @@ scm_mcache_lookup_cmethod (SCM cache, SCM args)
   return SCM_BOOL_F;
 }
 
-SCM (*scm_memoize_method) (SCM, SCM);
-
 SCM
 scm_mcache_compute_cmethod (SCM cache, SCM args)
 {