Function: byte-optimize-while

byte-optimize-while is a byte-compiled function defined in byte-opt.el.gz.

Signature

(byte-optimize-while FORM)

Source Code

;; Defined in /usr/src/emacs/lisp/emacs-lisp/byte-opt.el.gz
(defun byte-optimize-while (form)
  (let ((condition (nth 1 form)))
    (if (byte-compile-nilconstp condition)
        condition
      form)))