mirror of
https://git.savannah.gnu.org/git/guile.git
synced 2025-05-01 20:30:28 +02:00
fix embarrassing error preventing ,del from working
* module/system/vm/trap-state.scm (remove-trap-wrapper!): Oops, fix newbie error regarding delq and mutation.
This commit is contained in:
parent
35c46aad66
commit
2c04cf390b
1 changed files with 2 additions and 1 deletions
|
@ -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)
|
||||
|
|
Loading…
Add table
Add a link
Reference in a new issue