Skip to content

HTTPS clone URL

Subversion checkout URL

You can clone with
or
.
Download ZIP
Browse files

remove some dead code

  • Loading branch information...
commit f95dec4361bb4416e7677f0bae0546b879b9595b 1 parent 7d0a4d2
@swannodette swannodette authored
Showing with 0 additions and 8 deletions.
  1. +0 −8 src/main/clojure/clojure/core/logic.clj
View
8 src/main/clojure/clojure/core/logic.clj
@@ -161,17 +161,9 @@
(defprotocol IWithConstraintId
(-with-id [this id]))
-(extend-type Object
- IWithConstraintId
- (-with-id [this id] this))
-
(defprotocol IConstraintId
(-id [this]))
-(extend-type Object
- IConstraintId
- (-id [this] nil))
-
(defn id [c]
(if (instance? clojure.core.logic.IConstraintId c)
(-id c)
Please sign in to comment.
Something went wrong with that request. Please try again.