Added the mate.core/implies macro.

Author: green-coder

src/mate/core.cljc

@@ -3,6 +3,12 @@
   (:refer-clojure :exclude [group-by])
   (:require [clojure.core :as cc]))
 
+(defmacro implies
+  "`(implies x y)` expands to `(or (not x) y)` while being more
+   descriptive of the logical intent."
+  [x y]
+  `(or (not ~x) ~y))
+
 (defn seq-indexed
   "Returns an indexed sequence from the collection `coll`."
   [coll]

test/mate/core_test.cljc

@@ -2,6 +2,12 @@
   (:require [clojure.test :refer [deftest testing is are]]
             [mate.core :as m]))
 
+(deftest implies-test
+  (is (true?  (m/implies true  true)))
+  (is (false? (m/implies true  false)))
+  (is (true?  (m/implies false true)))
+  (is (true?  (m/implies false false))))
+
 (deftest seq-index-test
   (is (= (m/seq-indexed [:a :a :b :a :b])
          '([0 :a] [1 :a] [2 :b] [3 :a] [4 :b]))))