diff --git a/dash.el b/dash.el index 0747eb85..27dd2c19 100644 --- a/dash.el +++ b/dash.el @@ -578,11 +578,15 @@ Alias: `-any'" \(fn LIST)") +(gv-define-simple-setter -first-item setcar) + (defun -last-item (list) "Return the last item of LIST, or nil on an empty list." (declare (pure t) (side-effect-free t)) (car (last list))) +(gv-define-setter -last-item (val x) `(setcar (last ,x) ,val)) + (defun -butlast (list) "Return a list of all items in list except for the last." ;; no alias as we don't want magic optional argument