diff options
Diffstat (limited to 'module/system/vm/trace.scm')
-rw-r--r-- | module/system/vm/trace.scm | 4 |
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) |