diff options
| author | Arun Isaac | 2026-06-24 04:29:05 +0100 |
|---|---|---|
| committer | Arun Isaac | 2026-06-24 04:29:05 +0100 |
| commit | 596e868c145d8c0c3f5ad3893e32d5dc73151bc4 (patch) | |
| tree | ec7dfc09c77605b0018e24f935248707c589eaab | |
| parent | ff47e2dadee1aa864220f965e5c1a2c4b6972f28 (diff) | |
| download | ccwl-596e868c145d8c0c3f5ad3893e32d5dc73151bc4.tar.gz ccwl-596e868c145d8c0c3f5ad3893e32d5dc73151bc4.tar.lz ccwl-596e868c145d8c0c3f5ad3893e32d5dc73151bc4.zip | |
ccwl: Report all unrecognized keyword arguments, not just the first.
| -rw-r--r-- | ccwl/ccwl.scm | 48 |
1 files 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) |