Avoid unnecessary copying for -insert-at

13 years ago · f8db9e19dc
parent 6d328e419d
commit f8db9e19dc
1 changed files with 1 additions and 1 deletions
--- a/dash.el
+++ b/dash.el
@ -414,7 +414,7 @@ FROM or TO may be negative."
 (defun -insert-at (n x list)
  "Returns a list with X inserted into LIST at position N."
  (let ((split-list (-split-at n list)))
-    (append (car split-list) (cons x (cadr split-list)))))
+    (nconc (car split-list) (cons x (cadr split-list)))))

 (defmacro --split-with (pred list)
  "Anaphoric form of `-split-with'."