diff options
| author | Andy Wingo <wingo@pobox.com> | 2010-09-19 12:20:58 +0200 |
|---|---|---|
| committer | Andy Wingo <wingo@pobox.com> | 2010-09-19 12:20:58 +0200 |
| commit | e3667576595f16efbadaad18876a6e8f6e5777a2 (patch) | |
| tree | 8fcab7ddce82a6b3c548b4ed82f7664c62257d98 /module/system/vm/trap-state.scm | |
| parent | 7bcbdce17c84fb3b28cb2f1eac19826ffd03394b (diff) | |
| download | guile-e3667576595f16efbadaad18876a6e8f6e5777a2.tar.gz | |
default-trap-handler bugfix
* module/system/vm/trap-state.scm (default-trap-handler): Fix thinko.
Diffstat (limited to 'module/system/vm/trap-state.scm')
| -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 |