From: Leo Liu <sdl.web@gmail.com>
Date: Thu, 14 May 2015 03:18:54 +0000 (+0800)
Subject: Fix cps--gensym
X-Git-Tag: emacs-25.0.90~2101
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=fbda511ab8069d0115eafca411a43353b85431b1;p=emacs.git

Fix cps--gensym

* lisp/emacs-lisp/generator.el (cps--gensym): Fix.
---

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 @@
   ;; 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))
+  `(make-symbol (format ,fmt . ,args)))
 
 (defvar cps--dynamic-wrappers '(identity)
   "List of transformer functions to apply to atomic forms we