271 |
x))) calc-user-formula-alist)) |
x))) calc-user-formula-alist)) |
272 |
(if cmd |
(if cmd |
273 |
(progn |
(progn |
274 |
(calc-need-macros) |
(require 'calc-macs) |
275 |
(fset cmd |
(fset cmd |
276 |
(list 'lambda |
(list 'lambda |
277 |
'() |
'() |
1711 |
;;; Compiling Lisp-like forms to use the math library. |
;;; Compiling Lisp-like forms to use the math library. |
1712 |
|
|
1713 |
(defun math-do-defmath (func args body) |
(defun math-do-defmath (func args body) |
1714 |
(calc-need-macros) |
(require 'calc-macs) |
1715 |
(let* ((fname (intern (concat "calcFunc-" (symbol-name func)))) |
(let* ((fname (intern (concat "calcFunc-" (symbol-name func)))) |
1716 |
(doc (if (stringp (car body)) (list (car body)))) |
(doc (if (stringp (car body)) (list (car body)))) |
1717 |
(clargs (mapcar 'math-clean-arg args)) |
(clargs (mapcar 'math-clean-arg args)) |