Revised obfuscation facility, added its description to the reference, and added more...

[clinton/parenscript.git] / src / ps-macrology.lisp

diff --git a/src/ps-macrology.lisp b/src/ps-macrology.lisp
index 8e38450..04c64cc 100644 (file)
--- a/src/ps-macrology.lisp
+++ b/src/ps-macrology.lisp
@@ -6,7 +6,7 @@
 (defvar *ps-gensym-counter* 0)
 
 (defun ps-gensym (&optional (prefix "_js"))
-  (make-symbol (format nil "~A-~A" prefix (incf *ps-gensym-counter*))))
+  (make-symbol (format nil "~A~A" prefix (incf *ps-gensym-counter*))))
 
 (defmacro with-ps-gensyms (symbols &body body)
   "Evaluate BODY with SYMBOLS bound to unique ParenScript identifiers.