summaryrefslogtreecommitdiff
path: root/cider-macroexpansion.el
diff options
context:
space:
mode:
authorTianxiang Xiong <tianxiang.xiong@fundingcircle.com>2017-02-28 13:44:50 -0800
committerBozhidar Batsov <bozhidar.batsov@gmail.com>2017-03-01 08:02:31 +0200
commit5d32b960739162b75c044be0175b9564e7b8293e (patch)
tree6dc9c34552f6a1a13e3bf5b99ddf3b85e6ccbe91 /cider-macroexpansion.el
parent386a7c4b98b701a5ca11fce4b223f72984998454 (diff)
Don't use `list` where backquoting would be clearer
Diffstat (limited to 'cider-macroexpansion.el')
-rw-r--r--cider-macroexpansion.el17
1 files changed, 8 insertions, 9 deletions
diff --git a/cider-macroexpansion.el b/cider-macroexpansion.el
index d0ca9db9..473c6333 100644
--- a/cider-macroexpansion.el
+++ b/cider-macroexpansion.el
@@ -66,15 +66,14 @@ Possible values are:
The default for DISPLAY-NAMESPACES is taken from
`cider-macroexpansion-display-namespaces'."
(cider-ensure-op-supported "macroexpand")
- (thread-first (list "op" "macroexpand"
- "expander" expander
- "code" expr
- "ns" (cider-current-ns)
- "display-namespaces"
- (or display-namespaces
- (symbol-name cider-macroexpansion-display-namespaces)))
- (append (when cider-macroexpansion-print-metadata
- (list "print-meta" "true")))
+ (thread-first `("op" "macroexpand"
+ "expander" ,expander
+ "code" ,expr
+ "ns" ,(cider-current-ns)
+ "display-namespaces" ,(or display-namespaces
+ (symbol-name cider-macroexpansion-display-namespaces)))
+ (nconc (when cider-macroexpansion-print-metadata
+ '("print-meta" "true")))
(cider-nrepl-send-sync-request)
(nrepl-dict-get "expansion")))