diff options
| author | Leo Liu | 2015-05-14 11:18:54 +0800 |
|---|---|---|
| committer | Leo Liu | 2015-05-14 11:19:14 +0800 |
| commit | fbda511ab8069d0115eafca411a43353b85431b1 (patch) | |
| tree | 9ca9bacdb52fbbff633362716d166aef470ae0ec | |
| parent | 912d4a4935c2ef0854df2b709ccd00710415ff1d (diff) | |
| download | emacs-fbda511ab8069d0115eafca411a43353b85431b1.tar.gz emacs-fbda511ab8069d0115eafca411a43353b85431b1.zip | |
Fix cps--gensym
* lisp/emacs-lisp/generator.el (cps--gensym): Fix.
| -rw-r--r-- | lisp/emacs-lisp/generator.el | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/lisp/emacs-lisp/generator.el b/lisp/emacs-lisp/generator.el index 8251682590e..65def39bf2e 100644 --- a/lisp/emacs-lisp/generator.el +++ b/lisp/emacs-lisp/generator.el | |||
| @@ -90,7 +90,7 @@ | |||
| 90 | ;; Change this function to use `cl-gensym' if you want the generated | 90 | ;; Change this function to use `cl-gensym' if you want the generated |
| 91 | ;; code to be easier to read and debug. | 91 | ;; code to be easier to read and debug. |
| 92 | ;; (cl-gensym (apply #'format fmt args)) | 92 | ;; (cl-gensym (apply #'format fmt args)) |
| 93 | `(make-symbol ,fmt)) | 93 | `(make-symbol (format ,fmt . ,args))) |
| 94 | 94 | ||
| 95 | (defvar cps--dynamic-wrappers '(identity) | 95 | (defvar cps--dynamic-wrappers '(identity) |
| 96 | "List of transformer functions to apply to atomic forms we | 96 | "List of transformer functions to apply to atomic forms we |