   (let [total-depth (if total-depth total-depth 0)
         add-complements-to-bolts
         (fn [bolts path]
-          (reduce concat (pmap #(if (not (= :none (get-in % path :none)))
+          (reduce concat (map #(if (not (= :none (get-in % path :none)))
                                   (add-complement % path :top grammar lexicon index morph 0 (+ total-depth (count path)))
                                   [%])
                                bolts)))]

                       phrasal-complements (if (> max-total-depth total-depth)
                                             (generate-all spec grammar lexicon cache morph (+ depth total-depth)))]
                   (if (lexemes-before-phrases total-depth)
                     (lazy-cat shuffled-candidate-lexical-complements phrasal-complements)
                     (lazy-cat phrasal-complements shuffled-candidate-lexical-complements)))))))

(defn path-to-map [path val]
  (let [feat (first path)]

    (log/info (str "using grammar of size: " (count grammar)))
    (log/info (str "using index of size: " (count index)))
    (if (seq? spec)
      #?(:clj (map generate-all spec grammar lexicon index morph))
      #?(:cljs (map generate-all spec grammar lexicon index morph))
      (generate spec grammar
                (flatten (vals lexicon))
