From 03376c2c7c23b538d6b3e90b8c6d8534e367ab7a Mon Sep 17 00:00:00 2001
From: Arun Isaac
Date: Thu, 28 Sep 2023 22:36:30 +0100
Subject: scripts: Catch and report &formatted-message conditions.

* scripts/ccwl (main): Catch and report &formatted-message conditions.
---
 scripts/ccwl | 7 +++++--
 1 file changed, 5 insertions(+), 2 deletions(-)

(limited to 'scripts')

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
-- 
cgit v1.2.3