Fix :flip that should be :diploid-flip

src/propeller/push/state.cljc

@@ -35,13 +35,6 @@
   [state stack]
   (empty? (get state stack)))
 
-;;; Returns the top item on the stack
-;(defn peek-stack
-;  [state stack]
-;  (if-let [top-item (first (get state stack))]
-;    top-item
-;    :no-stack-item))
-
 ;; Returns the top item on the stack
 (defn peek-stack
   [state stack]

src/propeller/variation.cljc

@@ -86,7 +86,7 @@
                            [crossover uniform-addition uniform-deletion])
          xover-prob (or (:crossover (:variation argmap)) 0)
          umad-prob (or (:umad (:variation argmap)) 0)
-         flip-prob (or (:flip (:variation argmap)) 0)]
+         flip-prob (or (:diploid-flip (:variation argmap)) 0)]
      (cond
        (< prob xover-prob)
        (xover (:plushy (selection/select-parent pop argmap))