From fdedfc0088714ed82c93a0e44e2d8cd2def10f91 Mon Sep 17 00:00:00 2001 From: Arun Isaac Date: Mon, 22 Jun 2026 00:51:21 +0100 Subject: ccwl: Error out if old key in rename is a keyword. --- ccwl/ccwl.scm | 7 ++++++- 1 file changed, 6 insertions(+), 1 deletion(-) diff --git a/ccwl/ccwl.scm b/ccwl/ccwl.scm index 075ae0c..a2d9ea2 100644 --- a/ccwl/ccwl.scm +++ b/ccwl/ccwl.scm @@ -772,11 +772,16 @@ represented by objects." ;; rename keys (base case) ((rename new-key old-key) (begin - ;; Error out on non-keyword arguments. + ;; Error out if new key is not a keyword. (unless (keyword? (syntax->datum #'new-key)) (raise-exception (condition (ccwl-violation #'new-key) (formatted-message "Expected keyword (for example: #:foo, #:bar)")))) + ;; Error out if old key is a keyword. + (when (keyword? (syntax->datum #'old-key)) + (raise-exception + (condition (ccwl-violation #'old-key) + (formatted-message "Unexpected keyword; expected symbol (for example: foo, bar)")))) ;; Ensure old key exists. (unless (memq (syntax->datum #'old-key) (map key-name input-keys)) -- cgit 1.4.1