make sure unify-gensyms doesn't lose type-hints

clj-commons · Oct 7, 2012 · 211a5d4 · 211a5d4
1 parent 45360d9
commit 211a5d4
Show file tree

Hide file tree

Showing 3 changed files with 7 additions and 3 deletions.
diff --git a/.gitignore b/.gitignore
@@ -2,4 +2,5 @@ pom.xml
 *jar
 lib
 classes
-.lein*
+.lein*
+target/**
diff --git a/project.clj b/project.clj
@@ -1,4 +1,4 @@
-(defproject potemkin "0.1.5"
+(defproject potemkin "0.1.6"
   :description "Some useful facades."
   :dependencies [[org.clojure/clojure "1.3.0"]]
   :repositories {"sonatype-oss-public" "https://oss.sonatype.org/content/groups/public/"}

diff --git a/src/potemkin/macros.clj b/src/potemkin/macros.clj
@@ -26,7 +26,9 @@
   (let [gensym* (memoize gensym)]
     (postwalk
       #(if (gensym? %)
-         (symbol (str (gensym* (str (un-gensym %) "__")) "__auto__"))
+         (with-meta
+           (symbol (str (gensym* (str (un-gensym %) "__")) "__auto__"))
+           (meta %))
          %)
       body)))
 
@@ -46,6 +48,7 @@
                         (let [args (first arity-form)]
                           `(~args ~@(f args (rest arity-form)))))
                       arity-forms)]
+    (prn arity-forms)
     `(~(first form)
       ~(second form)
       (fn* ~@arity-forms))))