Skip to content

HTTPS clone URL

Subversion checkout URL

You can clone with
or
.
Download ZIP
Browse files

Using lein profiles to identify and fix cross-version incompatibilities

  • Loading branch information...
commit 8abd7ff734afcc04161989918a67a176be373c5f 1 parent 9755e55
@fogus fogus authored
View
12 project.clj
@@ -3,13 +3,11 @@
:dependencies [[org.clojure/clojure "1.5.0-master-SNAPSHOT"]
[org.clojure/core.unify "0.5.3"]]
:plugins [[lein-swank "1.4.4"]
- [lein-marginalia "0.7.1"]
- [lein-multi "1.1.0"]]
- :multi-deps {:all [[org.clojure/core.unify "0.5.3"]]
- "1.2" [[org.clojure/clojure "1.2.0"]]
- "1.2.1" [[org.clojure/clojure "1.2.1"]]
- "1.3" [[org.clojure/clojure "1.3.0"]]
- "1.4" [[org.clojure/clojure "1.4.0"]]}
+ [lein-marginalia "0.7.1"]]
+ :profiles {:1.2 {:dependencies [[org.clojure/clojure "1.2.0"]]}
+ :1.2.1 {:dependencies [[org.clojure/clojure "1.2.1"]]}
+ :1.3 {:dependencies [[org.clojure/clojure "1.3.0"]]}
+ :1.4 {:dependencies [[org.clojure/clojure "1.4.0"]]}}
:repositories {"sonatype-oss-public" "https://oss.sonatype.org/content/groups/public/"}
:source-paths ["src/main/clojure"]
:test-paths ["src/test/clojure"])
View
10 src/main/clojure/clojure/core/contracts/impl/transformers.clj
@@ -1,5 +1,5 @@
(ns clojure.core.contracts.impl.transformers
- (:require [clojure.core.contracts.impl.funcify :refer (funcify) :as funcification])
+ (:require [clojure.core.contracts.impl.funcify :as funcification])
(:require [clojure.core.unify :as unify]
[clojure.core.contracts.impl.utils :as utils]))
@@ -32,8 +32,8 @@
(mapcat (fn [form]
(if (and (seq? form) (= '_ (first form)))
[(list 'fn? (second form))
- (->Hoc (second form)
- (apply build-constraints-description (-> form nnext vec (conj "foo"))))]
+ (Hoc. (second form)
+ (apply build-constraints-description (-> form nnext vec (conj "foo"))))]
[form]))
cnstr)]
ret))
@@ -46,8 +46,8 @@
(let [cnstr (vec (tag-hocs cnstr))]
[args
(->> (divide-pre-post cnstr)
- (utils/manip-map (partial funcify '[%]) [:post])
- (utils/manip-map (partial funcify args) [:pre]))
+ (utils/manip-map (partial funcification/funcify '[%]) [:post])
+ (utils/manip-map (partial funcification/funcify args) [:pre]))
docstring]))
(defn- build-condition-body
Please sign in to comment.
Something went wrong with that request. Please try again.