* src/main/clojure/clojure/core/logic.clj: remove useless IPair protocol

clojure · Aug 1, 2012 · 5699506 · 5699506
1 parent 187d3ca
commit 5699506
Showing 1 changed file with 0 additions and 7 deletions.
diff --git a/src/main/clojure/clojure/core/logic.clj b/src/main/clojure/clojure/core/logic.clj
@@ -188,10 +188,6 @@
 ;; =============================================================================
 ;; Pair
 
-(defprotocol IPair
-  (lhs [this])
-  (rhs [this]))
-
 (deftype Pair [lhs rhs]
   clojure.lang.ILookup
   (valAt [this k]
@@ -212,9 +208,6 @@
                              0 lhs
                              1 rhs
                              not-found))
-  IPair
-  (lhs [_] lhs)
-  (rhs [_] rhs)
   java.util.Map$Entry
   (getKey [_] lhs)
   (getValue [_] rhs)