Function: cps--make-dynamic-binding-wrapper

cps--make-dynamic-binding-wrapper is a byte-compiled function defined in generator.el.gz.

Signature

(cps--make-dynamic-binding-wrapper DYNAMIC-VAR STATIC-VAR)

Source Code

;; Defined in /usr/src/emacs/lisp/emacs-lisp/generator.el.gz
(defun cps--make-dynamic-binding-wrapper (dynamic-var static-var)
  (cl-assert lexical-binding)
  (lambda (form)
    `(let ((,dynamic-var ,static-var))
       (unwind-protect ; Update the static shadow after evaluation is done
            ,form
         (setf ,static-var ,dynamic-var)))))