(defn non-base-rules
"Return a collection of rules that depend, somehow, on other rules"
[rs]
(let [pred (all-predicates rs)
non-base (fn [r]
(if (some #(pred %)
(map literal-predicate (:body r)))
r
nil))]
(remove nil? (map non-base rs))))
Comments top
No comments for non-base-rules. Log in to add a comment.