summaryrefslogtreecommitdiff
path: root/libguile
diff options
context:
space:
mode:
authorAndy Wingo <wingo@pobox.com>2009-11-06 17:17:33 +0100
committerAndy Wingo <wingo@pobox.com>2009-11-26 00:25:07 +0100
commite29db33c14bc2cb21b7c044fcd0d61a68ad150bb (patch)
tree7daf687332e75eab17fc09abf990943db8f0f90f /libguile
parentcfe55d3e819930e5aaaf9fd94c4495fe9f15ed4a (diff)
downloadguile-e29db33c14bc2cb21b7c044fcd0d61a68ad150bb.tar.gz
%invalidate-method-cache invalidates the dispatch procedure too
* libguile/goops.c (make_dispatch_procedure, clear_method_cache): Properly reset the dispatch procedure.
Diffstat (limited to 'libguile')
-rw-r--r--libguile/goops.c13
1 files changed, 12 insertions, 1 deletions
diff --git a/libguile/goops.c b/libguile/goops.c
index c343e3db2..e0afa5543 100644
--- a/libguile/goops.c
+++ b/libguile/goops.c
@@ -1899,12 +1899,23 @@ scm_make_method_cache (SCM gf)
gf);
}
+SCM_SYMBOL (sym_delayed_compile, "delayed-compile");
+static SCM
+make_dispatch_procedure (SCM gf)
+{
+ static SCM var = SCM_BOOL_F;
+ if (var == SCM_BOOL_F)
+ var = scm_module_variable (scm_c_resolve_module ("oop goops dispatch"),
+ sym_delayed_compile);
+ return scm_call_1 (SCM_VARIABLE_REF (var), gf);
+}
+
static void
clear_method_cache (SCM gf)
{
SCM cache = scm_make_method_cache (gf);
SCM_SET_GENERIC_METHOD_CACHE (gf, cache);
- SCM_SET_GENERIC_DISPATCH_PROCEDURE (gf, SCM_BOOL_F);
+ SCM_SET_GENERIC_DISPATCH_PROCEDURE (gf, make_dispatch_procedure (gf));
SCM_CLEAR_GENERIC_EFFECTIVE_METHODS (gf);
}