diff options
author | Sean Whitton <spwhitton@spwhitton.name> | 2020-08-15 22:29:41 -0700 |
---|---|---|
committer | Sean Whitton <spwhitton@spwhitton.name> | 2020-08-15 22:29:41 -0700 |
commit | 4a11733c92c0d533b79c07631f249d92e20a3edf (patch) | |
tree | a5072174f4e68a40ef018f51452ef4da1e76947e | |
parent | 581f3e2cbb1b6453e28acc9bc9e428db22a835e8 (diff) | |
download | dotfiles-4a11733c92c0d533b79c07631f249d92e20a3edf.tar.gz |
use cl-labels to avoid a global definitions
-rw-r--r-- | .emacs.d/init-spw.el | 17 |
1 files changed, 8 insertions, 9 deletions
diff --git a/.emacs.d/init-spw.el b/.emacs.d/init-spw.el index 575d36e7..9b3457bd 100644 --- a/.emacs.d/init-spw.el +++ b/.emacs.d/init-spw.el @@ -1655,15 +1655,14 @@ making indirect clones." (defun spw/flatten (list) "Non-destructive list flatten." - (nreverse (spw/flatten-and-reverse list))) - -(defun spw/flatten-and-reverse (list) - "Non-destructive list flatten and reverse." - (let (accum) - (dolist (element list accum) - (if (atom element) - (push element accum) - (setq accum (append (spw/flatten-and-reverse element) accum)))))) + (cl-labels + ((flatten (list) + (let (accum) + (dolist (element list accum) + (if (atom element) + (push element accum) + (setq accum (append (flatten element) accum))))))) + (nreverse (flatten list)))) ;;;; Composing mail |