[nongnu] elpa/helm 1d066466fe: Fix pcase (pred (not symbolp)) not supported in old emacs versions

[ELPA Syncer]

branch: elpa/helm
commit 1d066466feb786f3477f1e6b3278d6af54666177
Author: Thierry Volpiatto <thievol@posteo.net>
Commit: Thierry Volpiatto <thievol@posteo.net>

    Fix pcase (pred (not symbolp)) not supported in old emacs versions
---
 helm-core.el   | 2 +-
 helm-source.el | 2 +-
 2 files changed, 2 insertions(+), 2 deletions(-)

diff --git a/helm-core.el b/helm-core.el
index d9958e55e7..98e8e6f37a 100644
--- a/helm-core.el
+++ b/helm-core.el
@@ -3727,7 +3727,7 @@ See :after-init-hook and :before-init-hook in 
`helm-source'."
            when hv
            do (pcase hv
                 ((and (pred (functionp))
-                      (pred (not symbolp))) 
+                      (guard (not (symbolp hv)))) 
                  (funcall hv))
                 ((and hook (pred (listp)))
                  (dolist (h hook) (funcall h)))
diff --git a/helm-source.el b/helm-source.el
index 70279a9d8f..a8ba121029 100644
--- a/helm-source.el
+++ b/helm-source.el
@@ -1162,7 +1162,7 @@ The header line is based on one of `persistent-action-if',
         (setf (slot-value source 'requires-pattern) val)))
   (let ((sname (slot-value source 'name)))
     (pcase (slot-value source 'before-init-hook)
-      ((or (and (pred (functionp)) (pred (not symbolp)))
+      ((or (and val (pred (functionp)) (guard (not (symbolp val))))
            (pred (consp)))
        (warn "Helm source `%s': before-init-hook Should be defined as a 
symbol" sname)))
     (pcase (slot-value source 'after-init-hook)