                                          (term-iter))
                                     (map (fn [br-word word]
                                            (if (.seekExact te br-word)
-                                             (if *with-stemmed*
+                                             (if with-stemmed
                                                (map (fn [pos]
                                                       [word pos])
                                                     (get-positions te))
                                                (get-positions te))))
                                          br-words search-words))
                                   (map (fn [br-phrase phrase]
-                                         (if *with-stemmed*
+                                         (if with-stemmed
                                            (let [phrase-str
                                                  (clojure.string/join " " phrase)]
                                              (map (fn [pos]

        br-phrases (map (fn [phrase] (map #(BytesRef. %) phrase)) search-phrases)
        iwords (into #{} br-words)
        dict-lenght (count words)
        searcher (fn [^org.apache.lucene.store.Directory index]
                   (let [^DirectoryReader ireader (DirectoryReader/open index)
                         ^Terms terms (.getTermVector ireader

                                               ps ; Positions [[beg end]... ]
                                               ]]
                                           (if (iwords wd)
                                             (if with-stemmed
                                               (let [word (.utf8ToString wd)]
                                                 (map (fn [pos]
                                                        [word pos])
