Function: math-while

math-while is a macro defined in calc-prog.el.gz.

Signature

(math-while HEAD &rest BODY)

Source Code

;; Defined in /usr/src/emacs/lisp/calc/calc-prog.el.gz
;;; Useful programming macros.

(defmacro math-while (head &rest body)
  (let ((body (cons 'while (cons head body))))
    (if (math-body-refers-to body 'math-break)
	(cons 'catch (cons '(quote math-break) (list body)))
      body)))