                                              {:genome child-genome} 
                                              argmap)))
                          nil)
-          variant (diversifying? child-genome (-> argmap
-                                                  (assoc :parent1-genome parent1-genome)
-                                                  (assoc :parent2-genome parent2-genome)))
+          variant (diversifying? child-genome 
+                                 (-> argmap
+                                     (assoc :parent1-genome parent1-genome)
+                                     (assoc :parent2-genome parent2-genome)))
           use-child (or variant
                         (and autoconstructive-improve-or-diversify
                              (some (fn [[child-error parent1-error parent2-error]]

(defn uniform-integer-mutation
  "Uniformly mutates individual. For each integer in the genome, there is
   uniform-mutation-constant-tweak-rate probability of being mutated."
  [ind {:keys [uniform-mutation-constant-tweak-rate uniform-mutation-int-gaussian-standard-deviation
               maintain-ancestors atom-generators]
        :as argmap}]
  (let [uniform-mutation-constant-tweak-rate 

  "Replaces input instructions with noops and  autoconstructive_<type>_rand
  with <type>_rand."
  [genome]
  (let [input-instruction? 
        (fn [instruction]
          (and (symbol? instruction)
               (or (re-seq #"in\d+" (name instruction)) ;; from input-output
                   (re-seq #"in_dm" (name instruction)) ;; from digital-multiplier
                   (some #{instruction}
                         '(a0 a1 a2 d0 d1 d2 d3 d4 d5 d6 d7)))))] ;; from mux problems
    (mapv (fn [instruction-map]
            (if (input-instruction? (:instruction instruction-map))
              (assoc instruction-map :instruction 'code_noop)
