diff options
author | Andy Wingo <wingo@pobox.com> | 2013-11-21 16:10:41 +0100 |
---|---|---|
committer | Andy Wingo <wingo@pobox.com> | 2013-11-21 16:10:41 +0100 |
commit | 972275eee5326b4628f207996e14e0040fb94256 (patch) | |
tree | 399bb9fcf395d12d4e36de19cb1e003b2ab31bb9 /module/system/vm/coverage.scm | |
parent | 6b4ba76d05bf229b45d9f2be189cce29f46e3111 (diff) | |
download | guile-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.scm | 10 |
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)))) |