Source
clojure/contrib/datalog/magic.clj:90
top
(defn seed-predicate-for-insertion
"Given a query, return the predicate to use for database insertion."
[q]
(let [seed (-> q seed-rule :body first)
columns (-> seed :term-bindings keys)
new-term-bindings (-> q :term-bindings (select-keys columns))]
(assoc seed :term-bindings new-term-bindings)))
Comments top
No comments for seed-predicate-for-insertion. Log in to add a comment.