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

Don't quote lambda expressions with `quote'.

Browse source
This commit is contained in:
Stefan Monnier 2011-05-23 14:57:17 -03:00
parent 782fc81943
commit 4f91a8160f
77 changed files with 466 additions and 493 deletions
Download patch file Download diff file Expand all files Collapse all files

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

@ -2872,33 +2872,25 @@ If X is not an error form, return 1."
(defmacro math-defintegral (funcs &rest code)
(setq math-integral-cache nil)
(append '(progn)
(mapcar (function
(lambda (func)
(list 'put (list 'quote func) ''math-integral
(list 'nconc
(list 'get (list 'quote func) ''math-integral)
(list 'list
(list 'function
(append '(lambda (u))
code)))))))
(if (symbolp funcs) (list funcs) funcs))))
(cons 'progn
(mapcar #'(lambda (func)
`(put ',func 'math-integral
(nconc
(get ',func 'math-integral)
(list
#'(lambda (u) ,@code)))))
(if (symbolp funcs) (list funcs) funcs))))
(put 'math-defintegral 'lisp-indent-hook 1)
(defmacro math-defintegral-2 (funcs &rest code)
(setq math-integral-cache nil)
(append '(progn)
(mapcar (function
(lambda (func)
(list 'put (list 'quote func) ''math-integral-2
(list 'nconc
(list 'get (list 'quote func)
''math-integral-2)
(list 'list
(list 'function
(append '(lambda (u v))
code)))))))
(if (symbolp funcs) (list funcs) funcs))))
(cons 'progn
(mapcar #'(lambda (func)
`(put ',func 'math-integral-2
`(nconc
(get ',func 'math-integral-2)
(list #'(lambda (u v) ,@code)))))
(if (symbolp funcs) (list funcs) funcs))))
(put 'math-defintegral-2 'lisp-indent-hook 1)
(defvar var-IntegAfterRules 'calc-IntegAfterRules)