 ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
 
 ;; For Maps it checks if the current node is a key of the
-;; given Map.
+;; given map.
 (extend clojure.lang.IPersistentMap NodeTransformer
         ;; for some reason interfaces have to be extended like this
         ;; rather than via extend-protocol

;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;

(defprotocol NodeTransformer
  "Provides a function that will adapt a 'transformer'
  to regular dalap visitor function."

  (to-visitor [spec]))

  clojure.lang.PersistentVector
  (to-tree-loc-matcher [selector-vec]
    (let [selector (map to-node-matcher selector-vec)]
      (fn location-matcher [node walker]
        (let [history-stack (:history walker)]
          (matching-node selector history-stack)))))

  ;; Match if the given function returns true.
  clojure.lang.IFn
