Function: pcase--small-branch-p

pcase--small-branch-p is a byte-compiled function defined in pcase.el.gz.

Signature

(pcase--small-branch-p CODE)

Source Code

;; Defined in /usr/src/emacs/lisp/emacs-lisp/pcase.el.gz
(defun pcase--small-branch-p (code)
  (and (= 1 (length code))
       (or (not (consp (car code)))
           (let ((small t))
             (dolist (e (car code))
               (if (consp e) (setq small nil)))
             small))))