From 6f291424b579ae52ab12f4ea8be90f13a333fc2d Mon Sep 17 00:00:00 2001 From: Nada Amin Date: Thu, 20 Dec 2012 01:37:14 +0100 Subject: [PATCH] formatting --- src/main/clojure/clojure/core/logic.clj | 6 +++--- 1 file changed, 3 insertions(+), 3 deletions(-) diff --git a/src/main/clojure/clojure/core/logic.clj b/src/main/clojure/clojure/core/logic.clj index 46b15ce4..610ad86f 100644 --- a/src/main/clojure/clojure/core/logic.clj +++ b/src/main/clojure/clojure/core/logic.clj @@ -2921,9 +2921,9 @@ a (reduce (fn [a c] (queue a c)) (assoc a :cq (or cq [])) xcs)] - (if cq - a - (fix-constraints a))))) + (if cq + a + (fix-constraints a))))) (defn run-constraints* [xs cs ws] (if (or (zero? (count cs))