      dot/dot
      dot/show!)))
 
-(def operators #{:and :or :not})
+(def ^:private operators #{:and :or :not})
 
 (defn- condition-to-id-map
   "Returns a map associating conditions to node ids"

           [hiccup.core :as h]
           [clojure.string :as string]))

(defn get-productions [sources]
  (mapcat
   #(if (satisfies? eng/IRuleSource %)
      (eng/load-rules %)
      %)
   sources))

(defn condition-to-html 
  "Returns an HTML-based description of the given condition. "
  [condition]
  (h/html 

            (subs (name create-fact-fn) 2)))) ; Return the record type.
    #{}))

(defn- get-uses
  "Returns the facts consumed by a production."
  [production]
  (into #{}
        (for [[condition id] (condition-to-id-map production)
              :when (:type condition)]
          (.getName (:type condition)))))

(defn- insertions-to-dot [productions]
  (let [types-to-ids ; A map of all conditions and their node ids.
        (reduce
         (fn [map [type id]]
