                                    (assoc :parent1-genome parent1-genome)
                                    (assoc :parent2-genome parent2-genome)
                                    (assoc :parent1-errors (:errors parent1))
-                                   (assoc :parent2-errors (:errors parent2))))]
+                                   (assoc :parent2-errors (:errors parent2))
+                                   (assoc :parent1-history (:history parent1))
+                                   (assoc :parent2-history (:history parent2))))]
     (if (:diversifying checked)
       (assoc (make-individual :genome child-genome
                               :errors (:errors checked)

           (and (not= pgm parent1-pgm)
                (not= pgm parent2-pgm)))))

(defn not-empty-diversifying?
  [ind argmap]
  (do ;#(do (println %) %)

                :doesnt-clone-genetically doesnt-clone-genetically-diversifying?
                :child-doesnt-clone child-doesnt-clone-diversifying?
                :not-a-clone not-a-clone-diversifying?
                :lineage-behavior lineage-behavior-diversifying?
                :not-empty not-empty-diversifying?
                :minimum-genetic-difference minimum-genetic-difference-diversifying?
                :different-errors different-errors-diversifying?
                :new-errors new-errors-diversifying?
                :new-instruction new-instruction-diversifying?
                :lost-instruction lost-instruction-diversifying?
                :different-instructions different-instructions-diversifying?
