         (log/warn (str "generate: no expression could be generated for spec:" (strip-refs spec))))
       expression)))
 
-(declare add-complements-to-bolts)
+(declare add-complements)
 (declare add-all-comps)
 (declare candidate-parents)
 (declare lazy-shuffle)
 (declare find-comp-paths-in)
-(declare add-all-comps-to-bolts)
-(declare add-all-comps-to-bolts-with-paths)
+(declare add-all-comps)
+(declare add-all-comps-with-paths)
 
 (defn generate-all [spec language-model total-depth
                     & {:keys [max-total-depth truncate-children]

    (cons (vec (concat (butlast path) [:comp]))
          (find-comp-paths-in bolt (concat path [:head])))))

(defn add-complement-to-bolt [bolt path spec language-model depth total-depth
                              & {:keys [max-total-depth]
                                 :or {max-total-depth max-total-depth}}]
  (log/trace (str "add-complement-to-bolt: start: " (show-bolt bolt path language-model) "@"
                  (string/join " " path)))
  (let [index (:index language-model)
        lexicon (:lexicon language-model)
        input-spec spec
        from-bolt bolt ;; so we can show what (add-complement-to-bolt) did to the input bolt, for logging.
        spec (unifyc spec (get-in bolt path))
        immediate-parent (get-in bolt (butlast path))
        complement-candidate-lexemes
        (if (not (= true

                                        ref? remove-false remove-top-values-log
                                        strip-refs show-spec unify unifyc

                                        ;; temporary: until we move (truncate) from here to dag_unify.
                                        deserialize serialize
                                        )]))
                                        
