0.8.4-SNAPSHOT Arrow_down_16x16
  • (add-attr s x attr attrv)

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/core/logic.clj:417 top

(defn add-attr [s x attr attrv]
  (let [x (root-var s x)
        v (root-val s x)]
    (if (subst-val? v)
      (update-var s x (assoc-meta v attr attrv))
      (let [v (if (lvar? v) ::unbound v)]
        (ext-no-check s x (with-meta (subst-val v) {attr attrv}))))))
Vars in clojure.core.logic/add-attr:
Used in 0 other vars

Comments top

No comments for add-attr. Log in to add a comment.