aboutsummaryrefslogtreecommitdiff
diff options
context:
space:
mode:
-rwxr-xr-xscripts/ccwl18
1 files changed, 12 insertions, 6 deletions
diff --git a/scripts/ccwl b/scripts/ccwl
index e299413..57078dd 100755
--- a/scripts/ccwl
+++ b/scripts/ccwl
@@ -30,6 +30,7 @@ exec guile --no-auto-compile -e main -s "$0" "$@"
(srfi srfi-28)
(srfi srfi-37)
(ice-9 match)
+ (ice-9 exceptions)
(ccwl ccwl)
(ccwl conditions)
(ccwl cwl)
@@ -50,16 +51,21 @@ exec guile --no-auto-compile -e main -s "$0" "$@"
(define (main args)
(with-exception-handler
(lambda (condition)
- (display-backtrace (make-stack #t) (current-error-port))
- (newline (current-error-port))
- (write condition (current-error-port))
- (newline (current-error-port))
- (display "
+ ;; Catch uncaught exceptions, print their backtrace and
+ ;; request the user report an issue. Pass quit exceptions
+ ;; through since those may be raised by exceptions that have
+ ;; been handled.
+ (unless (quit-exception? condition)
+ (display-backtrace (make-stack #t) (current-error-port))
+ (newline (current-error-port))
+ (write condition (current-error-port))
+ (newline (current-error-port))
+ (display "
You have discovered a bug!
Please report this to https://github.com/arunisaac/ccwl/issues
Thank you!
"
- (current-error-port))
+ (current-error-port)))
(exit #f))
(lambda ()
(match args