summaryrefslogtreecommitdiff
path: root/module/system/vm/coverage.scm
diff options
context:
space:
mode:
authorAndy Wingo <wingo@pobox.com>2013-11-21 16:10:41 +0100
committerAndy Wingo <wingo@pobox.com>2013-11-21 16:10:41 +0100
commit972275eee5326b4628f207996e14e0040fb94256 (patch)
tree399bb9fcf395d12d4e36de19cb1e003b2ab31bb9 /module/system/vm/coverage.scm
parent6b4ba76d05bf229b45d9f2be189cce29f46e3111 (diff)
downloadguile-972275eee5326b4628f207996e14e0040fb94256.tar.gz
VM accessors take VM as implicit argument, not explicit argument
* libguile/vm.h: * libguile/vm.c: (scm_vm_apply_hook, scm_vm_push_continuation_hook, scm_vm_pop_continuation_hook, scm_vm_abort_continuation_hook, scm_vm_restore_continuation_hook, scm_vm_next_hook, scm_vm_trace_level, scm_set_vm_trace_level_x, scm_vm_engine, scm_set_vm_engine_x, scm_c_set_vm_engine_x): The VM argument is now implicit: the VM for the current thread. * doc/ref/api-debug.texi (VM Hooks): Try to adapt. * module/ice-9/command-line.scm: * module/statprof.scm: * module/system/vm/coverage.scm: * module/system/vm/trace.scm: * module/system/vm/trap-state.scm: * module/system/vm/traps.scm: * test-suite/tests/control.test: * test-suite/tests/eval.test: Adapt users that set hooks or ensure that we have a debug engine.
Diffstat (limited to 'module/system/vm/coverage.scm')
-rw-r--r--module/system/vm/coverage.scm10
1 files changed, 5 insertions, 5 deletions
diff --git a/module/system/vm/coverage.scm b/module/system/vm/coverage.scm
index ea66ce1f6..311a23b7c 100644
--- a/module/system/vm/coverage.scm
+++ b/module/system/vm/coverage.scm
@@ -69,16 +69,16 @@ coverage data. Return code coverage data and the values returned by THUNK."
;; VM is different from the current one, continuations will not be
;; resumable.
(call-with-values (lambda ()
- (let ((level (vm-trace-level vm))
- (hook (vm-next-hook vm)))
+ (let ((level (vm-trace-level))
+ (hook (vm-next-hook)))
(dynamic-wind
(lambda ()
- (set-vm-trace-level! vm (+ level 1))
+ (set-vm-trace-level! (+ level 1))
(add-hook! hook collect!))
(lambda ()
- (call-with-vm vm thunk))
+ (call-with-vm thunk))
(lambda ()
- (set-vm-trace-level! vm level)
+ (set-vm-trace-level! level)
(remove-hook! hook collect!)))))
(lambda args
(apply values (make-coverage-data ip-counts) args))))