diff --git a/src/datomish/db.cljc b/src/datomish/db.cljc index f2a61ca4..e1103f15 100644 --- a/src/datomish/db.cljc +++ b/src/datomish/db.cljc @@ -315,6 +315,10 @@ (transduce conj [] initial-es)) (assoc-in report [:entities])))) +(defn- lookup-ref? [x] + (and (sequential? x) + (= (count x) 2))) + (defn > + (vec (for [[op & entity] (:entities report)] + (into [op] (for [field entity] + (if (lookup-ref? field) + (first (> initial-report (preprocess db) + (