diff options
-rw-r--r-- | module/system/vm/trap-state.scm | 7 |
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 |