summaryrefslogtreecommitdiff
path: root/libguile/vm-engine.h
diff options
context:
space:
mode:
Diffstat (limited to 'libguile/vm-engine.h')
-rw-r--r--libguile/vm-engine.h17
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