Skip to content

HTTPS clone URL

Subversion checkout URL

You can clone with HTTPS or Subversion.

Download ZIP
Browse files

possible fix for LOGIC-109, namespace core.logic fns, fully qualify

subst keyword
  • Loading branch information...
commit c0a5ea982624c9e9af869be0b653bf83f60de062 1 parent ee5205e
@swannodette swannodette authored
Showing with 6 additions and 6 deletions.
  1. +6 −6 src/main/clojure/clojure/core/logic.clj
View
12 src/main/clojure/clojure/core/logic.clj
@@ -2911,21 +2911,21 @@
(reify
~'clojure.lang.IFn
(~'invoke [this# a#]
- (let [[~@args :as args#] (map #(walk* a# %) ~args)
+ (let [[~@args :as args#] (map #(clojure.core.logic/walk* a# %) ~args)
test# (do ~@body)]
(when test#
- ((remcg this#) a#))))
+ ((clojure.core.logic/remcg this#) a#))))
clojure.core.logic/IConstraintOp
(~'rator [_#] '~name)
- (~'rands [_#] (filter lvar? (flatten ~args)))
+ (~'rands [_#] (filter clojure.core.logic/lvar? (flatten ~args)))
clojure.core.logic/IReifiableConstraint
(~'reifyc [_# _# r# a#]
- (list '~name (map #(-reify r# %) ~args)))
+ (list '~name (map #(clojure.core.logic/-reify r# %) ~args)))
clojure.core.logic/IRunnable
(~'runnable? [_# s#]
- (ground-term? ~args s#))
+ (clojure.core.logic/ground-term? ~args s#))
clojure.core.logic/IConstraintWatchedStores
- (~'watched-stores [_#] #{::subst})))]
+ (~'watched-stores [_#] #{:clojure.core.logic/subst})))]
(defn ~name ~args
(cgoal (~-name ~@args))))))
Please sign in to comment.
Something went wrong with that request. Please try again.