mirrors/emacs
1
Fork 0
mirror of git://git.sv.gnu.org/emacs.git synced 2025-12-06 06:20:55 -08:00
Code Issues Projects Releases Wiki Activity

Remove redundant #' before lambda in calc/*.el

Browse source 
* lisp/calc/calc-alg.el (math-defsimplify):
* lisp/calc/calc-ext.el (math-defintegral, math-defintegral-2):
* lisp/calc/calc-prog.el (math-do-arg-check): Remove redundant #'
before lambda.
This commit is contained in:
Stefan Kangas 2021-04-05 17:28:05 +02:00
parent 0342354c15
commit 81940e9c0e
3 changed files with 23 additions and 23 deletions
Download patch file Download diff file Expand all files Collapse all files

4
lisp/calc/calc-alg.el
View file

@ -444,12 +444,12 @@ Code can refer to the expression to simplify via lexical variable `expr'
and should return the simplified expression to use (or nil)."
(declare (indent 1) (debug (sexp body)))
(cons 'progn
(mapcar #'(lambda (func)
(mapcar (lambda (func)
`(put ',func 'math-simplify
(nconc
(get ',func 'math-simplify)
(list
#'(lambda (expr) ,@code)))))
(lambda (expr) ,@code)))))
(if (symbolp funcs) (list funcs) funcs))))
(math-defsimplify (+ -)

8
lisp/calc/calc-ext.el
View file

@ -2784,23 +2784,23 @@ If X is not an error form, return 1."
(declare (indent 1) (debug (sexp body)))
(setq math-integral-cache nil)
(cons 'progn
(mapcar #'(lambda (func)
(mapcar (lambda (func)
`(put ',func 'math-integral
(nconc
(get ',func 'math-integral)
(list
#'(lambda (u) ,@code)))))
(lambda (u) ,@code)))))
(if (symbolp funcs) (list funcs) funcs))))
(defmacro math-defintegral-2 (funcs &rest code)
(declare (indent 1) (debug (sexp body)))
(setq math-integral-cache nil)
(cons 'progn
(mapcar #'(lambda (func)
(mapcar (lambda (func)
`(put ',func 'math-integral-2
(nconc
(get ',func 'math-integral-2)
(list #'(lambda (u v) ,@code)))))
(list (lambda (u v) ,@code)))))
(if (symbolp funcs) (list funcs) funcs))))
(defvar var-IntegAfterRules 'calc-IntegAfterRules)

4
lisp/calc/calc-prog.el
View file

@ -1881,7 +1881,7 @@ Redefine the corresponding command."
(if (fboundp (setq chk (intern (concat "math-" qual-name))))
(append rest
(if is-rest
`((mapcar #'(lambda (x)
`((mapcar (lambda (x)
(or (,chk x)
(math-reject-arg x ',qual)))
,var))
@ -1894,7 +1894,7 @@ Redefine the corresponding command."
qual-name 1))))))
(append rest
(if is-rest
`((mapcar #'(lambda (x)
`((mapcar (lambda (x)
(and (,chk x)
(math-reject-arg x ',qual)))
,var))