                       (intersection-with-identity pred-set cat-set))]
             (if (not (empty? subset))
               subset
-              (let [index (:index language-model)
-                    indexed (if index (get-lex immediate-parent :comp index))]
-                indexed))))
+              (vals (:lexicon language-model)))))
         bolt-child-synsem (strip-refs (get-in bolt (concat path [:synsem]) :top))
         lexical-complements (filter (fn [lexeme]
                                       (and (not-fail? (unify (strip-refs (get-in lexeme [:synsem] :top))

(ns babel.generate
  (:refer-clojure :exclude [get-in deref resolve find parents])
  (:require
   [babel.index :refer [get-lex]]
   [babel.over :as over :refer [show-bolt truncate truncate-expressions]]
   #?(:clj [clojure.tools.logging :as log])
   #?(:cljs [babel.logjs :as log]) 

                       true
                       (do
                         (log/warn (str "no index found for spec: " (spec-info spec)))
                         (vals (:lexicon language-model))))]
                 (log/debug (str "lightning-bolts: (optimizeme) size of subset of candidate heads: " (count subset) " with spec: " (strip-refs spec) " and parent:  " (get-in parent [:rule])))
                 (let [result (over/overh parent (lazy-shuffle subset))]
                   (log/debug (str "lightning-bolts: (optimizeme) surviving candidate heads: " (count result)))
