diff options
author | Andy Wingo <wingo@pobox.com> | 2010-10-05 21:48:27 +0200 |
---|---|---|
committer | Andy Wingo <wingo@pobox.com> | 2010-10-05 21:48:27 +0200 |
commit | 2c04cf390b832ec28fac33df5c4a77e00bcd31eb (patch) | |
tree | 7139805c8951ee133fe0fa13da67b41fe4df2f4c | |
parent | 35c46aad664835e07ab0cb4a0d7f93632fb42f14 (diff) | |
download | guile-2c04cf390b832ec28fac33df5c4a77e00bcd31eb.tar.gz |
fix embarrassing error preventing ,del from working
* module/system/vm/trap-state.scm (remove-trap-wrapper!): Oops, fix
newbie error regarding delq and mutation.
-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) |