From ffb909bf27158e10a032dc4df0d0c54bba37889b Mon Sep 17 00:00:00 2001
From: Arun Isaac
Date: Mon, 4 Oct 2021 16:34:55 +0530
Subject: ccwl: Error out on invalid keywords to lambda**.

* ccwl/utils.scm (lambda**): Error out on invalid keywords (that is,
keywords other than #:key, #:key* and #:allow-other-keys).
* tests/utils.scm ("lambda** should error out on unrecognized keywords
in arguments"): New test.
---
 tests/utils.scm | 5 +++++
 1 file changed, 5 insertions(+)

(limited to 'tests/utils.scm')

diff --git a/tests/utils.scm b/tests/utils.scm
index 07e02f8..a123719 100644
--- a/tests/utils.scm
+++ b/tests/utils.scm
@@ -80,6 +80,11 @@
   ((lambda** (#:key* foo)
      foo)))
 
+(test-error "lambda** should error out on unrecognized keywords in arguments" #t
+  (macroexpand
+   '(lambda** (#:key foo #:foo bar)
+      foo)))
+
 (test-assert "syntax-lambda**"
   (equal? (list #'1 #'2 #'123 (list #'1 #'2 #'3))
           ((syntax-lambda** (a b #:key foo #:key* bar)
-- 
cgit v1.2.3