Function: pcase--edebug-match-pat-args

pcase--edebug-match-pat-args is a byte-compiled function defined in pcase.el.gz.

Signature

(pcase--edebug-match-pat-args HEAD PF)

Source Code

;; Defined in /usr/src/emacs/lisp/emacs-lisp/pcase.el.gz
(defun pcase--edebug-match-pat-args (head pf)
  ;; (cl-assert (null (cdr head)))
  (setq head (car head))
  (let ((specs
         (or
          (alist-get head '((quote sexp)
                            (or    &rest pcase-PAT)
                            (and   &rest pcase-PAT)
                            (guard form)
                            (pred  &or ("not" pcase-FUN) pcase-FUN)
                            (app   pcase-FUN pcase-PAT)))
          (let ((me (pcase--get-macroexpander head)))
            (and me (symbolp me) (edebug-get-spec me))))))
    (funcall pf specs)))