summaryrefslogtreecommitdiff
diff options
context:
space:
mode:
authorMikael Djurfeldt <djurfeldt@nada.kth.se>1999-08-30 02:18:35 +0000
committerMikael Djurfeldt <djurfeldt@nada.kth.se>1999-08-30 02:18:35 +0000
commit0824bbb3f5d2a2a3cec1111363d195e491f74037 (patch)
tree9eeafe7d8e81a696f5aa6d86f473de5ede00963a
parent61364ba686e12aa6ffc7d5e02f6cc94a9ef0e165 (diff)
downloadguile-0824bbb3f5d2a2a3cec1111363d195e491f74037.tar.gz
Moved scm_memoize_method back to eval.c.
-rw-r--r--libguile/objects.c4
1 files changed, 1 insertions, 3 deletions
diff --git a/libguile/objects.c b/libguile/objects.c
index b1ad7a4a9..afd9af06b 100644
--- 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)
{