From 596e868c145d8c0c3f5ad3893e32d5dc73151bc4 Mon Sep 17 00:00:00 2001
From: Arun Isaac
Date: Wed, 24 Jun 2026 04:29:05 +0100
Subject: ccwl: Report all unrecognized keyword arguments, not just the first.

---
 ccwl/ccwl.scm | 48 ++++++++++++++++++++++++------------------------
 1 file changed, 24 insertions(+), 24 deletions(-)

diff --git a/ccwl/ccwl.scm b/ccwl/ccwl.scm
index 0de03e4..d14cdad 100644
--- a/ccwl/ccwl.scm
+++ b/ccwl/ccwl.scm
@@ -167,12 +167,12 @@ compared using @code{equal?}."
          (lambda (c)
            (cond
             ((unrecognized-keyword-assertion? c)
-             (raise-continuable
-              (match (condition-irritants c)
-                ((irritant _ ...)
-                 (condition (ccwl-violation irritant)
-                            (formatted-message "Unrecognized keyword argument ~a in input"
-                                               (syntax->datum irritant)))))))
+             (for-each (lambda (irritant)
+                         (raise-continuable
+                          (condition (ccwl-violation irritant)
+                                     (formatted-message "Unrecognized keyword argument ~a in input"
+                                                        (syntax->datum irritant)))))
+                       (condition-irritants c)))
             ((invalid-keyword-arity-assertion? c)
              (raise-continuable
               (match (condition-irritants c)
@@ -237,12 +237,12 @@ compared using @code{equal?}."
          (lambda (c)
            (cond
             ((unrecognized-keyword-assertion? c)
-             (raise-continuable
-              (match (condition-irritants c)
-                ((irritant _ ...)
-                 (condition (ccwl-violation irritant)
-                            (formatted-message "Unrecognized keyword argument ~a in output"
-                                               (syntax->datum irritant)))))))
+             (for-each (lambda (irritant)
+                         (raise-continuable
+                          (condition (ccwl-violation irritant)
+                                     (formatted-message "Unrecognized keyword argument ~a in output"
+                                                        (syntax->datum irritant)))))
+                       (condition-irritants c)))
             ((invalid-keyword-arity-assertion? c)
              (raise-continuable
               (match (condition-irritants c)
@@ -486,12 +486,12 @@ identifiers defined in the commands."
            (lambda (c)
              (cond
               ((unrecognized-keyword-assertion? c)
-               (raise-continuable
-                (match (condition-irritants c)
-                  ((irritant _ ...)
-                   (condition (ccwl-violation irritant)
-                              (formatted-message "Unrecognized keyword argument ~a in command definition"
-                                                 (syntax->datum irritant)))))))
+               (for-each (lambda (irritant)
+                           (raise-continuable
+                            (condition (ccwl-violation irritant)
+                                       (formatted-message "Unrecognized keyword argument ~a in command definition"
+                                                          (syntax->datum irritant)))))
+                         (condition-irritants c)))
               ((invalid-keyword-arity-assertion? c)
                (raise-continuable
                 (match (condition-irritants c)
@@ -575,12 +575,12 @@ identifiers defined in the commands."
            (lambda (c)
              (cond
               ((unrecognized-keyword-assertion? c)
-               (raise-continuable
-                (match (condition-irritants c)
-                  ((irritant _ ...)
-                   (condition (ccwl-violation irritant)
-                              (formatted-message "Unrecognized keyword argument ~a in js-expression definition"
-                                                 (syntax->datum irritant)))))))
+               (for-each (lambda (irritant)
+                           (raise-continuable
+                            (condition (ccwl-violation irritant)
+                                       (formatted-message "Unrecognized keyword argument ~a in js-expression definition"
+                                                          (syntax->datum irritant)))))
+                         (condition-irritants c)))
               ((invalid-keyword-arity-assertion? c)
                (raise-continuable
                 (match (condition-irritants c)
-- 
cgit 1.4.1