diff options
| -rw-r--r-- | emacs/guix-utils.el | 8 |
1 files changed, 8 insertions, 0 deletions
diff --git a/emacs/guix-utils.el b/emacs/guix-utils.el index 3157f6359b..fb1ca60654 100644 --- a/emacs/guix-utils.el +++ b/emacs/guix-utils.el @@ -215,6 +215,14 @@ accessed with KEYS." (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))))) + ;;; Diff |