diff options
Diffstat (limited to 'src/clojure/contrib/datalog/softstrat.clj')
| -rw-r--r-- | src/clojure/contrib/datalog/softstrat.clj | 15 |
1 files changed, 0 insertions, 15 deletions
diff --git a/src/clojure/contrib/datalog/softstrat.clj b/src/clojure/contrib/datalog/softstrat.clj index ca004981..b65434c4 100644 --- a/src/clojure/contrib/datalog/softstrat.clj +++ b/src/clojure/contrib/datalog/softstrat.clj @@ -126,11 +126,6 @@ ;;; Evaluate -(defn- apply-rules-set - [db rs] - (reduce (fn [rdb rule] - (apply-rule db rdb rule)) db rs)) - (defn- weak-consq-operator [db strat] (trace-datalog (println) @@ -146,16 +141,6 @@ new-db)) db))))) -(defn- build-partial-tuple - [q bindings] - (into {} (remove nil? (map (fn [[k v :as pair]] - (if (is-var? v) - nil - (if (is-query-var? v) - [k (bindings v)] - pair))) - (:term-bindings q))))) - (defn evaluate-soft-work-set ([ws db] (evaluate-soft-work-set ws db {})) ([ws db bindings] |