Fix cps--gensym

* lisp/emacs-lisp/generator.el (cps--gensym): Fix.
This commit is contained in:
Leo Liu 2015-05-14 11:18:54 +08:00
parent 912d4a4935
commit fbda511ab8

View file

@ -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