From 2c04cf390b832ec28fac33df5c4a77e00bcd31eb Mon Sep 17 00:00:00 2001 From: Andy Wingo Date: Tue, 5 Oct 2010 21:48:27 +0200 Subject: [PATCH] fix embarrassing error preventing ,del from working * module/system/vm/trap-state.scm (remove-trap-wrapper!): Oops, fix newbie error regarding delq and mutation. --- module/system/vm/trap-state.scm | 3 ++- 1 file changed, 2 insertions(+), 1 deletion(-) 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)