this wrapping is useless

clojure · Mar 28, 2012 · 20a6304 · 20a6304
1 parent 66154db
commit 20a6304
Showing 1 changed file with 2 additions and 1 deletion.
diff --git a/src/main/clojure/clojure/core/logic.clj b/src/main/clojure/clojure/core/logic.clj
@@ -920,7 +920,8 @@
   [& clauses]
   (let [clauses (map #(calltree % `join) clauses)
         clauses (calltree clauses `plus)]
-    `(fn [] ~clauses)))
+    `(fn [] ~clauses)
+    clauses))
 
 (defn- lvar-bind [sym]
   [sym `(lvar '~sym)])