summaryrefslogtreecommitdiff
diff options
context:
space:
mode:
-rwxr-xr-xscripts/ccwl7
1 files changed, 5 insertions, 2 deletions
diff --git a/scripts/ccwl b/scripts/ccwl
index 57078dd..6eb4792 100755
--- a/scripts/ccwl
+++ b/scripts/ccwl
@@ -55,7 +55,10 @@ exec guile --no-auto-compile -e main -s "$0" "$@"
;; 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)
+ (cond
+ ((formatted-message? condition)
+ (report-formatted-message condition))
+ ((not (quit-exception? condition))
(display-backtrace (make-stack #t) (current-error-port))
(newline (current-error-port))
(write condition (current-error-port))
@@ -65,7 +68,7 @@ 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