aboutsummaryrefslogtreecommitdiff
diff options
context:
space:
mode:
authorArun Isaac2023-10-13 23:50:46 +0100
committerArun Isaac2023-10-13 23:50:46 +0100
commitce250b207342a190573ff237cf17048a9a258545 (patch)
tree666067aa33f31ee12d5ee660be4e4b1c1c62ee42
parentd44f7188be84997f6660e6910bfadb5f7b1e9824 (diff)
downloadccwl-ce250b207342a190573ff237cf17048a9a258545.tar.gz
ccwl-ce250b207342a190573ff237cf17048a9a258545.tar.lz
ccwl-ce250b207342a190573ff237cf17048a9a258545.zip
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.
-rw-r--r--ccwl/ccwl.scm2
1 files changed, 1 insertions, 1 deletions
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