Consolidate apply hook to instrument-entry instruction

* libguile/vm.c (scm_call_n):
* libguile/vm-engine.c: Move apply hook to "instrument-entry"
  instruction.

1 files changed, 0 insertions, 3 deletions

diff --git a/libguile/vm.c b/libguile/vm.c
index d1e5d519b..1ad95babe 100644
--- a/libguile/vm.c
+++ b/libguile/vm.c
@@ -1435,9 +1435,6 @@ scm_call_n (SCM proc, SCM *argv, size_t nargs)
         else
           /* FIXME: Make this return an IP.  */
           apply_non_program (thread);
-
-        if (vp->trace_level)
-          vm_dispatch_apply_hook (thread);
       }
 
     thread->vm.registers = &registers;