* src/main/cljs/cljs/core/logic.cljs: implement IEquiv for Pair. prin…

…ting for Pair. toString for LVar.
clojure · Mar 24, 2012 · 268adae · 268adae
1 parent 8765743
commit 268adae
Showing 1 changed file with 11 additions and 0 deletions.
diff --git a/src/main/cljs/cljs/core/logic.cljs b/src/main/cljs/cljs/core/logic.cljs
@@ -60,6 +60,10 @@
   (-rhs [this]))
 
 (deftype Pair [lhs rhs]
+  IEquiv
+  (-equiv [this other]
+    (and (= lhs (.-lhs other))
+         (= rhs (.-rhs other))))
   ICounted
   (-count [_] 2)
   IIndexed
@@ -123,6 +127,10 @@
         (and (instance? Substitutions o)
              (= s (.-s o)))))
 
+  IPrintable
+  (-pr-seq [this opts]
+    (-pr-seq s opts))
+
   ISubstitutions
   (-length [this] (count l))
 
@@ -194,6 +202,9 @@
 ;; Logic Variables
 
 (deftype LVar [name meta]
+  Object
+  (toString [this]
+    (pr-str this))
   IMeta
   (-meta [this]
     meta)