Function: math-for

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

Signature

(math-for HEAD &rest BODY)

Source Code

;; Defined in /usr/src/emacs/lisp/calc/calc-prog.el.gz
;; (put 'math-while 'lisp-indent-hook 1)

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