diff options
Diffstat (limited to 'libguile/vm-engine.h')
-rw-r--r-- | libguile/vm-engine.h | 17 |
1 files changed, 8 insertions, 9 deletions
diff --git a/libguile/vm-engine.h b/libguile/vm-engine.h index 949e9c473..2cce7344e 100644 --- a/libguile/vm-engine.h +++ b/libguile/vm-engine.h @@ -206,15 +206,14 @@ #undef RUN_HOOK #if VM_USE_HOOKS -#define RUN_HOOK(h) \ -{ \ - if (SCM_UNLIKELY (scm_is_true (vp->hooks[h])))\ - { \ - SYNC_REGISTER (); \ - vm_dispatch_hook (vp, vp->hooks[h], hook_args); \ - CACHE_REGISTER (); \ - } \ -} +#define RUN_HOOK(h) \ + { \ + if (SCM_UNLIKELY (vp->trace_level > 0)) \ + { \ + SYNC_REGISTER (); \ + vm_dispatch_hook (vm, h); \ + } \ + } #else #define RUN_HOOK(h) #endif |