diff options
| author | Arun Isaac | 2023-10-13 23:50:46 +0100 |
|---|---|---|
| committer | Arun Isaac | 2023-10-13 23:50:46 +0100 |
| commit | ce250b207342a190573ff237cf17048a9a258545 (patch) | |
| tree | 666067aa33f31ee12d5ee660be4e4b1c1c62ee42 /ccwl/ccwl.scm | |
| parent | d44f7188be84997f6660e6910bfadb5f7b1e9824 (diff) | |
| download | ccwl-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.
Diffstat (limited to 'ccwl/ccwl.scm')
| -rw-r--r-- | ccwl/ccwl.scm | 2 |
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 |