diff options
Diffstat (limited to 'libguile/vm-engine.c')
-rw-r--r-- | libguile/vm-engine.c | 14 |
1 files changed, 7 insertions, 7 deletions
diff --git a/libguile/vm-engine.c b/libguile/vm-engine.c index 7ce306caa..6ab5f2439 100644 --- a/libguile/vm-engine.c +++ b/libguile/vm-engine.c @@ -110,9 +110,9 @@ #endif #if VM_USE_HOOKS -#define RUN_HOOK(H, h) \ +#define RUN_HOOK(h) \ do { \ - if (SCM_UNLIKELY (VP->hooks_enabled[SCM_VM_##H##_HOOK])) \ + if (SCM_UNLIKELY (VP->h##_hook_enabled)) \ { \ SYNC_IP (); \ invoke_##h##_hook (thread); \ @@ -120,13 +120,13 @@ } \ } while (0) #else -#define RUN_HOOK(H, h) +#define RUN_HOOK(h) #endif -#define APPLY_HOOK() RUN_HOOK (APPLY, apply) -#define RETURN_HOOK() RUN_HOOK (RETURN, return) -#define NEXT_HOOK() RUN_HOOK (NEXT, next) -#define ABORT_HOOK() RUN_HOOK (ABORT, abort) +#define APPLY_HOOK() RUN_HOOK (apply) +#define RETURN_HOOK() RUN_HOOK (return) +#define NEXT_HOOK() RUN_HOOK (next) +#define ABORT_HOOK() RUN_HOOK (abort) |