branch: externals/graphql
commit 3eb2416913d663997053e576450ebdcadb033f27
Author: Sean Allred <c...@seanallred.com>
Commit: Sean Allred <c...@seanallred.com>
Make sure 'plain' cons cell keys are not cons cells themselves
---
graphql.el | 2 +-
1 file changed, 1 insertion(+), 1 deletion(-)
diff --git a/graphql.el b/graphql.el
index 7b0fb57d83..0d43955c69 100644
--- a/graphql.el
+++ b/graphql.el
@@ -150,7 +150,7 @@ parameter."
(mapcar (lambda (edge) (alist-get 'node edge))
edges))))
;; When we encounter a plain cons cell (not a list), let it pass
- (`(,key . ,(and value (guard (not (consp value)))))
+ (`(,(and key (guard (not (consp key)))) . ,(and value (guard (not (consp
value)))))
(cons key value))
;; symbols should pass unaltered
(`,(and symbol (guard (symbolp symbol)))
