diff options
| author | Richard M. Stallman | 2005-07-03 16:17:50 +0000 |
|---|---|---|
| committer | Richard M. Stallman | 2005-07-03 16:17:50 +0000 |
| commit | 5de35ba42edf2e1972db07512b07257a1ee7e2b0 (patch) | |
| tree | 34a5d064817a6ade147b147e9ba9fdee08ecc0e0 | |
| parent | 019472f486129189fc554c2dc458c6d07a015f9c (diff) | |
| download | emacs-5de35ba42edf2e1972db07512b07257a1ee7e2b0.tar.gz emacs-5de35ba42edf2e1972db07512b07257a1ee7e2b0.zip | |
(macroexp-accumulate): Rename arg to var+list.
| -rw-r--r-- | lisp/emacs-lisp/macroexp.el | 10 |
1 files changed, 6 insertions, 4 deletions
diff --git a/lisp/emacs-lisp/macroexp.el b/lisp/emacs-lisp/macroexp.el index b5a279bbbf4..b3573d0f3b5 100644 --- a/lisp/emacs-lisp/macroexp.el +++ b/lisp/emacs-lisp/macroexp.el | |||
| @@ -45,15 +45,17 @@ | |||
| 45 | ;; structure of the result with the input. Doing so recursively using | 45 | ;; structure of the result with the input. Doing so recursively using |
| 46 | ;; `maybe-cons' results in excessively deep recursion for very long | 46 | ;; `maybe-cons' results in excessively deep recursion for very long |
| 47 | ;; input forms. | 47 | ;; input forms. |
| 48 | (defmacro macroexp-accumulate (#1=#:\(var\ list\) &rest body) | 48 | (defmacro macroexp-accumulate (var+list &rest body) |
| 49 | "Return a list of the results of evaluating BODY for each element of LIST. | 49 | "Return a list of the results of evaluating BODY for each element of LIST. |
| 50 | Evaluate BODY with VAR bound to each `car' from LIST, in turn. | 50 | Evaluate BODY with VAR bound to each `car' from LIST, in turn. |
| 51 | Return a list of the values of the final form in BODY. | 51 | Return a list of the values of the final form in BODY. |
| 52 | The list structure of the result will share as much with LIST as | 52 | The list structure of the result will share as much with LIST as |
| 53 | possible (for instance, when BODY just returns VAR unchanged, the | 53 | possible (for instance, when BODY just returns VAR unchanged, the |
| 54 | result will be eq to LIST)." | 54 | result will be eq to LIST). |
| 55 | (let ((var (car #1#)) | 55 | |
| 56 | (list (cadr #1#)) | 56 | \(fn (VAR LIST) BODY...)" |
| 57 | (let ((var (car var+list)) | ||
| 58 | (list (cadr var+list)) | ||
| 57 | (shared (make-symbol "shared")) | 59 | (shared (make-symbol "shared")) |
| 58 | (unshared (make-symbol "unshared")) | 60 | (unshared (make-symbol "unshared")) |
| 59 | (tail (make-symbol "tail")) | 61 | (tail (make-symbol "tail")) |