diff options
Diffstat (limited to 'module/system')
-rw-r--r-- | module/system/vm/trap-state.scm | 3 |
1 files changed, 2 insertions, 1 deletions
diff --git a/module/system/vm/trap-state.scm b/module/system/vm/trap-state.scm index c67ea322e..02a4c8818 100644 --- a/module/system/vm/trap-state.scm +++ b/module/system/vm/trap-state.scm @@ -86,7 +86,8 @@ (trap-wrapper-index wrapper)) (define (remove-trap-wrapper! trap-state wrapper) - (delq wrapper (trap-state-wrappers trap-state))) + (set! (trap-state-wrappers trap-state) + (delq wrapper (trap-state-wrappers trap-state)))) (define (trap-state->trace-level trap-state) (fold (lambda (wrapper level) |