Transferred type hint to LHS of let binding.

plumatic · Apr 16, 2014 · a75fefa · a75fefa
1 parent 3b08211
commit a75fefa
Showing 1 changed file with 3 additions and 2 deletions.
diff --git a/src/hiphip/impl/core.clj b/src/hiphip/impl/core.clj
@@ -85,7 +85,8 @@
                                               "val sym or pair of index and value syms")
                                   [(first left) (second left)]))
           array-sym (gensym "arr")]
-      {:array-bindings [array-sym right]
+      {:array-bindings [(vary-meta array-sym merge (select-keys (meta right) [:tag]))
+                        right]
        :value-bindings (into (if idx-sym [idx-sym index-sym] [])
                              [val-sym `(aget ~array-sym ~(intcast index-sym))])})))
 
@@ -168,4 +169,4 @@
 (defn ^String slurp-from-classpath [^String file]
   (slurp (.getResourceAsStream (clojure.lang.RT/baseLoader) file)))
 
-(set! *warn-on-reflection* false)
+(set! *warn-on-reflection* false)