* lisp/emacs-lisp/macroexp.el (macroexpand-all-1): Put back special
handling for `lambda' (misunderstanding).
This commit is contained in:
parent
fb3e306a4f
commit
e20f04215a
2 changed files with 10 additions and 0 deletions
|
@ -1,3 +1,8 @@
|
||||||
|
2010-06-17 Stefan Monnier <monnier@iro.umontreal.ca>
|
||||||
|
|
||||||
|
* emacs-lisp/macroexp.el (macroexpand-all-1): Put back special
|
||||||
|
handling for `lambda' (misunderstanding).
|
||||||
|
|
||||||
2010-06-16 Jay Belanger <jay.p.belanger@gmail.com>
|
2010-06-16 Jay Belanger <jay.p.belanger@gmail.com>
|
||||||
|
|
||||||
* calc/calc-poly.el: (math-accum-factors): Make sure that
|
* calc/calc-poly.el: (math-accum-factors): Make sure that
|
||||||
|
|
|
@ -145,6 +145,11 @@ Assumes the caller has bound `macroexpand-all-environment'."
|
||||||
form))
|
form))
|
||||||
((eq fun 'quote)
|
((eq fun 'quote)
|
||||||
form)
|
form)
|
||||||
|
((and (consp fun) (eq (car fun) 'lambda))
|
||||||
|
;; Embedded lambda in function position.
|
||||||
|
(maybe-cons (macroexpand-all-forms fun 2)
|
||||||
|
(macroexpand-all-forms (cdr form))
|
||||||
|
form))
|
||||||
;; The following few cases are for normal function calls that
|
;; The following few cases are for normal function calls that
|
||||||
;; are known to funcall one of their arguments. The byte
|
;; are known to funcall one of their arguments. The byte
|
||||||
;; compiler has traditionally handled these functions specially
|
;; compiler has traditionally handled these functions specially
|
||||||
|
|
Loading…
Add table
Add a link
Reference in a new issue