 
         ;; Map of queries to their nodes in the network.
         query-to-nodes (into {} (for [[query-name query-node] query-nodes]
-                                  [(:query query-node) query-node])) 
+                                  [(:query query-node) query-node]))
 
         ;; Map of rules to their nodes in the network.
         rule-to-nodes (into {} (for [rule-node production-nodes]

            [schema.core :as s]
            [schema.macros :as sm]))

(defn- get-condition-matches 
  "Returns facts matching each condition"
  [beta-roots memory]
  ;; TODO: add inspection of query, test, and negation nodes?
  (let [join-nodes (for [beta-root beta-roots
                         beta-node (tree-seq :children :children beta-root)
                         :when (= :join (:node-type beta-node))]
                     beta-node)]
    (reduce 
     (fn [matches node]
       (update-in matches
                  [(:condition node)]

   Users may inspect the entire structure for troubleshooting or explore it
   for specific cases. For instance, the following code snippet could look
   at all matches for some example rule:

   (defrule example-rule ... )

   ...
