branch: elpa/llama
commit 5db4ead41eee5d44616553ff66c7f9d92604540a
Author: Jonas Bernoulli <jo...@bernoul.li>
Commit: Jonas Bernoulli <jo...@bernoul.li>
llama--collect: Optimize unquoting
This avoids one call to `llama--collect' per ,unquote.
---
llama.el | 8 ++++----
1 file changed, 4 insertions(+), 4 deletions(-)
diff --git a/llama.el b/llama.el
index 0232a24ddb..e8af17e4e3 100644
--- a/llama.el
+++ b/llama.el
@@ -188,11 +188,11 @@ to view this docstring.)"
((memq (car-safe expr) (list (intern "") 'llama 'quote)) expr)
((and backquoted (symbolp expr)) expr)
((and backquoted (eq (car-safe expr) backquote-unquote-symbol))
- (cons backquote-unquote-symbol
- (llama--collect (cdr expr) args)))
+ (list backquote-unquote-symbol
+ (llama--collect (cadr expr) args)))
((eq (car-safe expr) backquote-backquote-symbol)
- (cons backquote-backquote-symbol
- (llama--collect (cdr expr) args nil t)))
+ (list backquote-backquote-symbol
+ (llama--collect (cadr expr) args nil t)))
((symbolp expr)
(let ((name (symbol-name expr)))
(save-match-data
