Permalink
Browse files

partial fix for LOGIC-77, still not getting the expected result

  • Loading branch information...
1 parent 1661ee3 commit 07f2f6ac42ad13ed7476f70669b98e76a84f2455 David Nolen committed Dec 16, 2012
Showing with 1 addition and 1 deletion.
  1. +1 −1 src/main/clojure/clojure/core/logic.clj
@@ -381,7 +381,7 @@
(cond
(< max (:min that)) true
(> min (:max that)) true
- :else (empty? (set/intersection this (:s that))))
+ :else (empty? (set/intersection s (:s that))))
:else (disjoint?* this that)))
(intersection [this that]
(cond

0 comments on commit 07f2f6a

Please sign in to comment.