diff options
| author | Stefan Monnier <monnier@iro.umontreal.ca> | 2015-05-19 15:37:14 -0400 |
|---|---|---|
| committer | Stefan Monnier <monnier@iro.umontreal.ca> | 2015-05-19 15:37:14 -0400 |
| commit | a0823e4374ed260ed90c7eaccfbab186b8a4a949 (patch) | |
| tree | 0e017eaf55db54b1cead9b62e4f106c7bcd7d139 /lisp/emacs-lisp/generator.el | |
| parent | c7acb6dd92d3611918b5c5792e0df71101857916 (diff) | |
| download | emacs-a0823e4374ed260ed90c7eaccfbab186b8a4a949.tar.gz | |
* emacs-lisp/generator.el (cps--gensym, cps--transform-1): Silence compiler
Diffstat (limited to 'lisp/emacs-lisp/generator.el')
| -rw-r--r-- | lisp/emacs-lisp/generator.el | 8 |
1 files changed, 4 insertions, 4 deletions
diff --git a/lisp/emacs-lisp/generator.el b/lisp/emacs-lisp/generator.el index 8251682590e..c8e61f3be03 100644 --- a/lisp/emacs-lisp/generator.el +++ b/lisp/emacs-lisp/generator.el @@ -90,7 +90,7 @@ ;; Change this function to use `cl-gensym' if you want the generated ;; code to be easier to read and debug. ;; (cl-gensym (apply #'format fmt args)) - `(make-symbol ,fmt)) + `(progn (ignore ,@args) (make-symbol ,fmt))) (defvar cps--dynamic-wrappers '(identity) "List of transformer functions to apply to atomic forms we @@ -308,14 +308,14 @@ don't yield.") collect (if (symbolp binding) (list binding nil) binding))) - (temps (cl-loop for (var value-form) in bindings + (temps (cl-loop for (var _value-form) in bindings collect (cps--add-binding var)))) (cps--transform-1 `(let* ,(append - (cl-loop for (var value-form) in bindings + (cl-loop for (_var value-form) in bindings for temp in temps collect (list temp value-form)) - (cl-loop for (var binding) in bindings + (cl-loop for (var _binding) in bindings for temp in temps collect (list var temp))) ,@body) |