mirror/guile
mirror/guile
1
Fork 0
mirror of https://git.savannah.gnu.org/git/guile.git synced 2025-06-12 06:41:13 +02:00
Code Activity

default-trap-handler bugfix

Browse source 
* module/system/vm/trap-state.scm (default-trap-handler): Fix thinko.
This commit is contained in:
Andy Wingo 2010-09-19 12:20:58 +02:00
parent 7bcbdce17c
commit e366757659
1 changed files with 4 additions and 3 deletions
Download patch file Download diff file Expand all files Collapse all files

7
module/system/vm/trap-state.scm
View file

@ -42,9 +42,10 @@
(thunk))) (thunk)))
(define (default-trap-handler frame idx trap-name) (define (default-trap-handler frame idx trap-name)
(if %default-trap-handler (let ((default-handler (fluid-ref %default-trap-handler)))
((fluid-ref %default-trap-handler) frame idx trap-name) (if default-handler
(warn "Trap with no handler installed" frame idx trap-name))) (default-handler frame idx trap-name)
(warn "Trap with no handler installed" frame idx trap-name))))
(define-record <trap-wrapper> (define-record <trap-wrapper>
index index