   structure."
   false)
 
+(def ^{:dynamic true}
+  *phrase-separator-regex*
+  "Used to determine phrases in dictionary and separate words in phrase."
+  " ")
+
 (defn stemming-text [^String text
                      & {:keys [format] :or {format #{}}}]
   "Convert words from text into stemmed form according to *analyzer*."


  When *with-stemmed* is true, the iteratior item is the following:
  [stemmed-word [start-offset end-offset]]"
  (let [phrases (into #{} (filter #(or (.contains % " ")
                                       (.contains % "-")) dict))
        words (clojure.set/difference dict phrases)
        search-words (clojure.set/union (stemming-dict words) words)
        search-phrases (clojure.set/union (stemming-phrases phrases)
                                          (map #(.split % "[ -]") phrases))
        br-words (map #(BytesRef. %) search-words)
        br-phrases (map (fn [phrase] (map #(BytesRef. %) phrase)) search-phrases)
        iwords (into #{} br-words)

                                                      ps))
                                               ps)))
                                         (term-iter))
                                    ;; Iterate through dictionary words
                                    (map (fn [br-word word]
                                           (if (.seekExact te br-word)
                                             (if with-stemmed
