lispy-clojure.clj (flatten-expr): Improve

abo-abo · Mar 2, 2016 · 8014eb0 · 8014eb0
1 parent 6df13fd
commit 8014eb0
Showing 1 changed file with 6 additions and 2 deletions.
diff --git a/lispy-clojure.clj b/lispy-clojure.clj
@@ -90,9 +90,13 @@
         func-args (first func-body)
         func-impl (rest func-body)]
     (cons 'let
-          (cons (vec (if (some #{'&} func-args)
+          (cons (vec (if (some #{'&} [func-args])
                        (vector func-args (vec args))
-                       (interleave func-args args)))
+                       (apply concat
+                              (filter (fn [[a b]]
+                                        (not (= a b)))
+                                      (partition
+                                       2 (interleave func-args args))))))
                 func-impl))))
 
 (defn quote-maybe