README.md

@@ -228,14 +228,6 @@ Evaluation count : 24 in 6 samples of 4 calls.
 
 ## Changelog
 
-### 0.19.6
-
- * Fix regression in 0.19.5 #54
-
-### 0.19.5
-
- * Support ClojureDart
-
 ### 0.19.4
 
  * Fix ClojureScript compilation broken in `0.19.3` #49

build.clj

@@ -3,23 +3,10 @@
             [clojure.java.shell :as sh]))
 
 (def lib 'net.cgrand/xforms)
-(def version "0.19.6"  #_(format "0.0.%s" (b/git-count-revs nil)))
+(def version "0.19.5"  #_(format "0.0.%s" (b/git-count-revs nil)))
 (def class-dir "target/classes")
 (def basis (b/create-basis {:project "deps.edn"}))
 (def jar-file (format "target/%s-%s.jar" (name lib) version))
-(def scm {:connection "scm:git:git://github.com/cgrand/xforms.git"
-          :developerConnection "scm:git:git://github.com/cgrand/xforms.git"
-          :url "https://github.com/cgrand/xforms"})
-(def extra-pom-data
-  [[:licenses
-    [:license
-     [:name "Eclipse Public License 1.0"]
-     [:url "https://opensource.org/license/epl-1-0/"]
-     [:distribution "repo"]]
-    [:license
-     [:name "Eclipse Public License 2.0"]
-     [:url "https://opensource.org/license/epl-2-0/"]
-     [:distribution "repo"]]]])
 
 (defn clean [_]
   (b/delete {:path "target"}))
@@ -29,9 +16,7 @@
                 :lib lib
                 :version version
                 :basis basis
-                :src-dirs ["src"]
+                :src-dirs ["src"]})
-                :scm (assoc scm :tag (str "v" version))
-                :pom-data extra-pom-data})
   (b/copy-dir {:src-dirs ["src" "resources"]
                :target-dir class-dir})
   (b/jar {:class-dir class-dir

deps.edn

@@ -40,6 +40,5 @@
    :main-opts ["-m" "cljs-test-runner.main"]}
 
   :build
-  {:paths ["."]
+  {:deps {io.github.clojure/tools.build {:git/tag "v0.9.4" :git/sha "76b78fe"}}
-   :deps {io.github.clojure/tools.build {:git/tag "v0.9.6" :git/sha "8e78bcc"}}
           :ns-default build}}}

src/net/cgrand/xforms.cljc

@@ -105,13 +105,11 @@
                                               (if (destructuring-pair? arg)
                                                 (let [[karg varg] arg]
                                                   `([~acc ~karg ~varg] ~@body))
-                                                (let [k (gensym "k__")
+                                                `([~acc k# v#] (let [~arg
-                                                      v (gensym "v__")
+                                                                     (macros/case
-                                                      arg-value (macros/case
+                                                                         :clj (clojure.lang.MapEntry. k# v#)
-                                                                  :clj `(clojure.lang.MapEntry. ~k ~v)
+                                                                         :cljs [k# v#]
-                                                                  :cljs [k v]
+                                                                         :cljd (MapEntry k# v#))] ~@body)))))
-                                                                  :cljd `(MapEntry ~k ~v))]
-                                                  `([~acc ~k ~v] (let [~arg ~arg-value] ~@body))))))
                     (not (arities 2)) (conj (let [[[acc karg varg] & body] (arities 3)]
                                               `([~acc [~karg ~varg]] ~@body))))]
     `(reify

test/net/cgrand/xforms_test.cljc

@@ -158,9 +158,3 @@
          '(a b) false
          '{foo bar} false
          '{foo :bar} false)))
-
-(defmacro wraps-for-with-no-destructuring []
-  (x/into [] (x/for [x (range 5)] x)))
-
-(deftest for-in-macro
-  (is (= [0 1 2 3 4] (wraps-for-with-no-destructuring))))