-
 (ns clojush.pushgp.genetic-operators
   (:use [clojush util random individual globals interpreter translate pushstate]
         clojush.instructions.tag

                                 short-genome-lengthened
                                 long-genome)))]
      (make-individual :genome new-genome
                       :history [(:history parent1) (:history parent2)]
                       :ancestors (if maintain-ancestors
                                    (cons (:genome parent1) (:ancestors parent1))
                                    (:ancestors parent1))))))

    (assoc (make-individual :genome (if (or variant (diversifying? new-genome argmap))
                                      new-genome
                                      [])
                            :history (:history parent1)
                            :ancestors (if maintain-ancestors
                                         (cons (:genome parent1) (:ancestors parent1))
                                         (:ancestors parent1)))
