default-trap-handler bugfix

* module/system/vm/trap-state.scm (default-trap-handler): Fix thinko.

diff --git a/module/system/vm/trap-state.scm b/module/system/vm/trap-state.scm
index 024bb20..4277dd3 100644 (file)
--- 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