summaryrefslogtreecommitdiff
path: root/module/system/vm/trace.scm
diff options
context:
space:
mode:
Diffstat (limited to 'module/system/vm/trace.scm')
-rw-r--r--module/system/vm/trace.scm4
1 files changed, 2 insertions, 2 deletions
diff --git a/module/system/vm/trace.scm b/module/system/vm/trace.scm
index 0135b39f3..084c65a9a 100644
--- a/module/system/vm/trace.scm
+++ b/module/system/vm/trace.scm
@@ -114,10 +114,10 @@
(set! inst-trap
(trace-instructions-in-procedure thunk #:vm vm #:width width
#:max-indent max-indent)))
- (set-vm-trace-level! vm (1+ (vm-trace-level vm))))
+ (set-vm-trace-level! (1+ (vm-trace-level))))
thunk
(lambda ()
- (set-vm-trace-level! vm (1- (vm-trace-level vm)))
+ (set-vm-trace-level! (1- (vm-trace-level)))
(if call-trap (call-trap))
(if inst-trap (inst-trap))
(set! call-trap #f)