Permalink
Browse files

Renamed combinator-expr?

  • Loading branch information...
1 parent e2d42b0 commit 2b102f4a19d61c014673355038829ae137912ed4 @dnaumov committed Apr 9, 2012
Showing with 2 additions and 2 deletions.
  1. +2 −2 src/contracts/core.clj
View
4 src/contracts/core.clj
@@ -11,14 +11,14 @@
(format "%s failed for var %s %n Expecting: %s %n Given: %s"
type var (pr-str pred) (pr-str value))))
-(defn combinator-expr? [expr]
+(defn contract-expr? [expr]
(and (seq? expr)
(symbol? (first expr))
(= (resolve (first expr)) #'=>)))
(defn gen-check [type exprs+preds]
(->> (for [[expr pred] exprs+preds]
- (if (combinator-expr? pred)
+ (if (contract-expr? pred)
`['~expr (~pred ~expr)]
`['~expr (if (~pred ~expr)
~expr

0 comments on commit 2b102f4

Please sign in to comment.