Skip to content

HTTPS clone URL

Subversion checkout URL

You can clone with
or
.
Download ZIP
Browse files

Cleaning code

  • Loading branch information...
commit 76f11bd932f154c768005130feaab5d8f8b9c54a 1 parent 18c2ec8
@fogus fogus authored
Showing with 3 additions and 2 deletions.
  1. +3 −2 src/main/clojure/clojure/core/contracts/constraints.clj
View
5 src/main/clojure/clojure/core/contracts/constraints.clj
@@ -137,7 +137,7 @@
(defmacro defconstrainedrecord
[name slots inv-description invariants & etc]
- (let [fields (vec slots)
+ (let [fields (vec slots)
ns-part (namespace-munge *ns*)
classname (symbol (str ns-part "." name))
ctor-name (symbol (str name \.))
@@ -171,7 +171,8 @@
(if-let [contract (and m (-> m meta :contract))]
((partial contract identity) (apply f m args))
(apply f m args)))
- {:hooked true})))
+ {:hooked true
+ :original f})))
(when *assert*
(alter-var-root (var assoc) apply-contract)
Please sign in to comment.
Something went wrong with that request. Please try again.