summaryrefslogtreecommitdiff
diff options
context:
space:
mode:
-rw-r--r--module/system/vm/trap-state.scm7
1 files changed, 4 insertions, 3 deletions
diff --git a/module/system/vm/trap-state.scm b/module/system/vm/trap-state.scm
index 024bb2091..4277dd333 100644
--- a/module/system/vm/trap-state.scm
+++ b/module/system/vm/trap-state.scm
@@ -42,9 +42,10 @@
(thunk)))
(define (default-trap-handler frame idx trap-name)
- (if %default-trap-handler
- ((fluid-ref %default-trap-handler) frame idx trap-name)
- (warn "Trap with no handler installed" frame idx trap-name)))
+ (let ((default-handler (fluid-ref %default-trap-handler)))
+ (if default-handler
+ (default-handler frame idx trap-name)
+ (warn "Trap with no handler installed" frame idx trap-name))))
(define-record <trap-wrapper>
index