diff options
author | Andy Wingo <wingo@pobox.com> | 2009-11-06 17:17:33 +0100 |
---|---|---|
committer | Andy Wingo <wingo@pobox.com> | 2009-11-26 00:25:07 +0100 |
commit | e29db33c14bc2cb21b7c044fcd0d61a68ad150bb (patch) | |
tree | 7daf687332e75eab17fc09abf990943db8f0f90f /libguile | |
parent | cfe55d3e819930e5aaaf9fd94c4495fe9f15ed4a (diff) | |
download | guile-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.c | 13 |
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); } |