Re: Understanding macroexp.el

[Stefan Monnier]

> Would it make sense to install the following:
>
> *** /tmp/ediff139941AX        2015-11-18 11:12:07.788012282 +0100
> --- /home/micha/software/emacs/lisp/emacs-lisp/macroexp.el    2015-11-18 
> 10:47:41.041352909 +0100
> ***************
> *** 331,337 ****
>     (cond
>      ((null bindings) exp)
>      ((eq 'let* (car-safe exp)) `(let* (,@bindings ,@(cadr exp)) ,@(cddr 
> exp)))
> !    (t `(let* ,bindings ,exp))))
>
>   (defun macroexp-if (test then else)
>     "Return an expression equivalent to `(if ,TEST ,THEN ,ELSE)."
> --- 331,337 ----
>     (cond
>      ((null bindings) exp)
>      ((eq 'let* (car-safe exp)) `(let* (,@bindings ,@(cadr exp)) ,@(cddr 
> exp)))
> !    (t `(let* ,bindings ,@(macroexp-unprogn exp)))))
>
>   (defun macroexp-if (test then else)
>     "Return an expression equivalent to `(if ,TEST ,THEN ,ELSE)."

That'd be fine, I think, yes.  It probably won't make much difference,
if any, tho.


        Stefan