From ce250b207342a190573ff237cf17048a9a258545 Mon Sep 17 00:00:00 2001
From: Arun Isaac
Date: Fri, 13 Oct 2023 23:50:46 +0100
Subject: ccwl: Convert syntax to datum before checking if it is a symbol.

* ccwl/ccwl.scm (collect-steps): Convert syntax to datum before
checking if it is a symbol.
---
 ccwl/ccwl.scm | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/ccwl/ccwl.scm b/ccwl/ccwl.scm
index 07eaeae..5a6aaed 100644
--- a/ccwl/ccwl.scm
+++ b/ccwl/ccwl.scm
@@ -513,7 +513,7 @@ represented by <step> objects."
                                                           (function-input-keys function-object))))))
                     ;; If value is neither a literal nor a known key,
                     ;; error out.
-                    (when (and (symbol? value)
+                    (when (and (symbol? (syntax->datum value))
                                (not (memq (syntax->datum value)
                                           input-key-symbols)))
                       (raise-exception
-- 
cgit v1.2.3