diff options
| author | Arun Isaac | 2023-09-28 22:36:30 +0100 |
|---|---|---|
| committer | Arun Isaac | 2023-09-28 22:39:22 +0100 |
| commit | 03376c2c7c23b538d6b3e90b8c6d8534e367ab7a (patch) | |
| tree | d3d4289ac1bd471c046841a1d7ec2369451012dd /scripts | |
| parent | 7e744b2e66d8309ef003b345cf34caa6240ff8b7 (diff) | |
| download | ccwl-03376c2c7c23b538d6b3e90b8c6d8534e367ab7a.tar.gz ccwl-03376c2c7c23b538d6b3e90b8c6d8534e367ab7a.tar.lz ccwl-03376c2c7c23b538d6b3e90b8c6d8534e367ab7a.zip | |
scripts: Catch and report &formatted-message conditions.
* scripts/ccwl (main): Catch and report &formatted-message conditions.
Diffstat (limited to 'scripts')
| -rwxr-xr-x | scripts/ccwl | 7 |
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 |