Browse files

Fixed typo

  • Loading branch information...
1 parent cb8d532 commit 313c115fe3cb603b0e2b2f38a16d31a99e9d268a @fogus fogus committed Mar 5, 2013
Showing with 5 additions and 4 deletions.
  1. +5 −4 src/main/clojure/clojure/core/contracts/constraints.clj
View
9 src/main/clojure/clojure/core/contracts/constraints.clj
@@ -143,10 +143,11 @@
ctor-name (symbol (str name \.))
positional-factory-name (symbol (str "->" name))
map-arrow-factory-name (symbol (str "map->" name))
- chk `(contract ~(symbol (str "chk-" name))
- ~inv-description
- [{:keys ~fields :as m#}]
- ~invariants)]
+ chk `(clojure.core.contracts/contract
+ ~(symbol (str "chk-" name))
+ ~inv-description
+ [{:keys ~fields :as m#}]
+ ~invariants)]
`(do
(let [t# (defrecord ~name ~fields ~@etc)]
(defn ~(symbol (str name \?)) [r#]

0 comments on commit 313c115

Please sign in to comment.