From 0cdeada6b3dec0d5eab1648cc5d7c627b593d498 Mon Sep 17 00:00:00 2001
From: Arun Isaac
Date: Sun, 16 Jan 2022 01:22:52 +0530
Subject: ccwl: Add &formatted-message condition.

* ccwl/conditions.scm (&formatted-message): New condition.
(formatted-message): New function.
---
 ccwl/conditions.scm | 17 ++++++++++++++++-
 1 file changed, 16 insertions(+), 1 deletion(-)

diff --git a/ccwl/conditions.scm b/ccwl/conditions.scm
index 2c69cea..c6523cb 100644
--- a/ccwl/conditions.scm
+++ b/ccwl/conditions.scm
@@ -29,7 +29,11 @@
             invalid-keyword-arity-assertion
             invalid-keyword-arity-assertion?
             invalid-positional-arguments-arity-assertion
-            invalid-positional-arguments-arity-assertion?))
+            invalid-positional-arguments-arity-assertion?
+            formatted-message
+            formatted-message?
+            formatted-message-format
+            formatted-message-arguments))
 
 (define-condition-type &ccwl-violation &violation
   make-ccwl-violation ccwl-violation?
@@ -52,3 +56,14 @@
 
 (define-condition-type &invalid-positional-arguments-arity-assertion &assertion
   invalid-positional-arguments-arity-assertion invalid-positional-arguments-arity-assertion?)
+
+(define-condition-type &formatted-message &message
+  make-formatted-message formatted-message?
+  (format formatted-message-format)
+  (arguments formatted-message-arguments))
+
+(define (formatted-message format-string . arguments)
+  "Return &ccwl-message condition for FORMAT-STRING with ARGUMENTS."
+  (make-formatted-message (apply format format-string arguments)
+                          format-string
+                          arguments))
-- 
cgit v1.2.3