• (seed-relation q)
Given a magic form of a query, give back the literal form of its seed
relation

0 Examples top

Log in to add / edit an example.

See Also top

Log in to add a see also.

Plus_12x12 Minus_12x12 Source clojure/contrib/datalog/magic.clj:63 top

(defn seed-relation
  "Given a magic form of a query, give back the literal form of its seed
   relation"
  [q]
  (let [pred (-> q literal-predicate get-base-predicate)
        bnds (-> q literal-predicate get-adorned-bindings)]
    (with-meta (assoc q :predicate [pred :magic-seed bnds]) {})))
Vars in clojure.contrib.datalog.magic/seed-relation: assoc defn let with-meta
Used in 0 other vars

Comments top

No comments for seed-relation. Log in to add a comment.