Function: cond*-bind-pattern-syms

cond*-bind-pattern-syms is a byte-compiled function defined in cond-star.el.gz.

Signature

(cond*-bind-pattern-syms BINDINGS EXPR)

Documentation

Wrap EXPR in code to bind the BINDINGS.

This is used for the bindings specified explicitly in match* patterns.

Source Code

;; Defined in /usr/src/emacs/lisp/emacs-lisp/cond-star.el.gz
(defun cond*-bind-pattern-syms (bindings expr)
  "Wrap EXPR in code to bind the BINDINGS.
This is used for the bindings specified explicitly in match* patterns."
  ;; They can't have side effects.  Skip them
  ;; if we don't actually need them.
  (if (equal expr '(progn))
      nil
    (if bindings
        (if (eq (car expr) 'progn)
            `(let* ,bindings . ,(cdr expr))
          `(let* ,bindings ,expr))
      expr)))