Source
clojure/contrib/datalog/database.clj:267
top
(defn merge-relations
"Merges two relations"
[r1 r2]
(assert (= (:schema r1) (:schema r2)))
(let [merged-indexes (merge-indexes (:indexes r1)
(:indexes r2))
merged-data (union (:data r1)
(:data r2))]
(assoc r1 :data merged-data :indexes merged-indexes)))
Comments top
No comments for merge-relations. Log in to add a comment.