aboutsummaryrefslogtreecommitdiffstats
path: root/lisp
diff options
context:
space:
mode:
Diffstat (limited to 'lisp')
-rw-r--r--lisp/calc/calc-prog.el4
1 files changed, 2 insertions, 2 deletions
diff --git a/lisp/calc/calc-prog.el b/lisp/calc/calc-prog.el
index 93250299f73..7e403f31793 100644
--- a/lisp/calc/calc-prog.el
+++ b/lisp/calc/calc-prog.el
@@ -271,7 +271,7 @@
271 x))) calc-user-formula-alist)) 271 x))) calc-user-formula-alist))
272 (if cmd 272 (if cmd
273 (progn 273 (progn
274 (calc-need-macros) 274 (require 'calc-macs)
275 (fset cmd 275 (fset cmd
276 (list 'lambda 276 (list 'lambda
277 '() 277 '()
@@ -1711,7 +1711,7 @@
1711;;; Compiling Lisp-like forms to use the math library. 1711;;; Compiling Lisp-like forms to use the math library.
1712 1712
1713(defun math-do-defmath (func args body) 1713(defun math-do-defmath (func args body)
1714 (calc-need-macros) 1714 (require 'calc-macs)
1715 (let* ((fname (intern (concat "calcFunc-" (symbol-name func)))) 1715 (let* ((fname (intern (concat "calcFunc-" (symbol-name func))))
1716 (doc (if (stringp (car body)) (list (car body)))) 1716 (doc (if (stringp (car body)) (list (car body))))
1717 (clargs (mapcar 'math-clean-arg args)) 1717 (clargs (mapcar 'math-clean-arg args))