(defn delta-literal "Given a literal l, return a delta version" [l] (let [pred* (:predicate l) pred (if (map? pred*) pred* {:pred pred*})] (assoc l :predicate (assoc pred :delta true))))
Comments top
No comments for delta-literal. Log in to add a comment.