diff options
| -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 |