Skip to content

HTTPS clone URL

Subversion checkout URL

You can clone with HTTPS or Subversion.

Download ZIP
Browse files

Refactor invoke

  • Loading branch information...
commit c9f9a122737645d3cee7b359ecf2dc4f569180f8 1 parent 8e0f262
Jim Duey authored
Showing with 3 additions and 3 deletions.
  1. +3 −3 src/main/clojure/clojure/core/logic.clj
6 src/main/clojure/clojure/core/logic.clj
View
@@ -1855,9 +1855,9 @@
(deftype logic-monad [v mv goal]
clojure.lang.IFn
(invoke [_ c]
- (cond
- goal (mv (fn [v] ((goal v) c)))
- :else (c v)))
+ (if-not goal
+ (c v)
+ (mv (fn [v] ((goal v) c)))))
m/Monad
(do-result [_ v]
Please sign in to comment.
Something went wrong with that request. Please try again.