Remove duplicate code #471

tonsky · May 23, 2024 · 995f8a2 · 995f8a2
1 parent 61edb9e
commit 995f8a2
Showing 1 changed file with 0 additions and 11 deletions.
diff --git 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]