diff options
| author | Alex Kost <alezost@gmail.com> | 2015-09-15 21:36:23 +0300 |
|---|---|---|
| committer | Alex Kost <alezost@gmail.com> | 2015-09-18 21:41:46 +0300 |
| commit | b2cb869cf928aa0aba7716103548b49af852d6e6 (patch) | |
| tree | 83240bd4a2dd9d8c526c044c90673239b167c94d | |
| parent | eda1cc8b5d68189166e1d61142aa84e5af4187c7 (diff) | |
| download | patches-b2cb869cf928aa0aba7716103548b49af852d6e6.tar patches-b2cb869cf928aa0aba7716103548b49af852d6e6.tar.gz | |
emacs: Replace 'guix-any' with 'cl-some'.
* emacs/guix-utils.el (guix-any): Remove.
* emacs/guix-command.el (guix-command-improve-argument): Use 'cl-some'
instead of 'guix-any'.
| -rw-r--r-- | emacs/guix-command.el | 6 | ||||
| -rw-r--r-- | emacs/guix-utils.el | 8 |
2 files changed, 3 insertions, 11 deletions
diff --git a/emacs/guix-command.el b/emacs/guix-command.el index ddafac92f1..6fdfb93981 100644 --- a/emacs/guix-command.el +++ b/emacs/guix-command.el @@ -305,9 +305,9 @@ to be modified." (defun guix-command-improve-argument (argument improvers) "Return ARGUMENT modified with IMPROVERS." - (or (guix-any (lambda (improver) - (funcall improver argument)) - improvers) + (or (cl-some (lambda (improver) + (funcall improver argument)) + improvers) argument)) (defun guix-command-improve-arguments (arguments commands) diff --git a/emacs/guix-utils.el b/emacs/guix-utils.el index 682609d907..d1f088b6a8 100644 --- a/emacs/guix-utils.el +++ b/emacs/guix-utils.el @@ -226,14 +226,6 @@ single argument." (while (re-search-forward ,regexp nil t) ,@body))) -(defun guix-any (pred lst) - "Test whether any element from LST satisfies PRED. -If so, return the return value from the successful PRED call. -Return nil otherwise." - (when lst - (or (funcall pred (car lst)) - (guix-any pred (cdr lst))))) - ;;; Alist accessors |