From fc0eb5fa7a9ba79511818d507fd515fc91adfa71 Mon Sep 17 00:00:00 2001 From: David Edgar Liebke Date: Thu, 3 May 2012 13:24:09 -0400 Subject: [PATCH] Fixed issue resolving the clojure.core.logic.Rel index in the facts and retractions functions. --- src/main/clojure/clojure/core/logic.clj | 4 ++-- 1 file changed, 2 insertions(+), 2 deletions(-) diff --git a/src/main/clojure/clojure/core/logic.clj b/src/main/clojure/clojure/core/logic.clj index 8d7d40e..dc70888 100644 --- a/src/main/clojure/clojure/core/logic.clj +++ b/src/main/clojure/clojure/core/logic.clj @@ -1618,7 +1618,7 @@ (swap! rel-set (fn [s] (into s tuples))) (let [indexes (indexes-for rel arity)] (doseq [[o i] indexes] - (let [index (var-get (resolve (index-sym (.name rel) arity o)))] + (let [index (var-get (ns-resolve rel-ns (index-sym (.name rel) arity o)))] (let [indexed-tuples (map (fn [t] {(nth t (dec i)) #{t}}) tuples)] @@ -1660,7 +1660,7 @@ (swap! rel-set (fn [s] (remove #(some #{%} tuples) s))) (let [indexes (indexes-for rel arity)] (doseq [[o i] indexes] - (let [index (var-get (resolve (index-sym (.name rel) arity o)))] + (let [index (var-get (ns-resolve rel-ns (index-sym (.name rel) arity o)))] (let [indexed-tuples (map (fn [t] {(nth t (dec i)) #{t}}) tuples)] -- 1.7.9.4