ccwl: Error out if old key in rename is a keyword.

1 files changed, 6 insertions, 1 deletions

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 <step> 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))