         (if use-child false true)))))
 
 
-
-

     :diffmeans diffmeans-diversifying?
     :minimal-reproductive-difference minimal-reproductive-difference-diversifying?
     :use-mate-differently use-mate-differently-diversifying?
     :no-clones no-clones-diversifying?
     :none (fn [genome argmap] true))
    g

                        (and autoconstructive-improve-or-diversify
                             (some (fn [[child-error parent1-error parent2-error]]
                                     (< child-error (min parent1-error parent2-error)))
                                   (mapv vector 
                                         child-errors 
                                         (:errors parent1) 
                                         (:errors parent2)))))
          new-genome (if use-child
                       child-genome
                       (random-plush-genome 
                         max-genome-size-in-initial-program atom-generators argmap))]
      (assoc (make-individual :genome (if (or use-child (diversifying? new-genome argmap))
                                        new-genome
                                        [])
