From 995f8a234e28a13d39bf560a484f780241ccc303 Mon Sep 17 00:00:00 2001 From: Nikita Prokopov Date: Thu, 23 May 2024 17:47:09 +0200 Subject: [PATCH] Remove duplicate code #471 --- src/datascript/query.cljc | 11 ----------- 1 file changed, 11 deletions(-) diff --git a/src/datascript/query.cljc b/src/datascript/query.cljc index a53a1429..8ae84206 100644 --- a/src/datascript/query.cljc +++ b/src/datascript/query.cljc @@ -556,17 +556,6 @@ (prod-rel (assoc production :tuples []) (empty-rel binding)))] (update context :rels collapse-rels new-rel))) -(defn substitute-constant [context pattern-el] - (when (free-var? pattern-el) - (when-some [rel (rel-with-attr context pattern-el)] - (when-some [tuple (first (:tuples rel))] - (when (nil? (fnext (:tuples rel))) - (let [idx (get (:attrs rel) pattern-el)] - (#?(:cljs da/aget :clj get) tuple idx))))))) - -(defn substitute-constants [context pattern] - (mapv #(or (substitute-constant context %) %) pattern)) - ;;; RULES (defn rule? [context clause]