From 0c6ebde41bf43fdf00e9d085b8cb89d17eab9d13 Mon Sep 17 00:00:00 2001 From: Lee Spector Date: Sun, 29 Nov 2020 21:43:00 -0500 Subject: [PATCH] Fix :flip that should be :diploid-flip --- src/propeller/push/state.cljc | 7 ------- src/propeller/variation.cljc | 2 +- 2 files changed, 1 insertion(+), 8 deletions(-) diff --git a/src/propeller/push/state.cljc b/src/propeller/push/state.cljc index 3b21193..f06bc89 100755 --- a/src/propeller/push/state.cljc +++ b/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] diff --git a/src/propeller/variation.cljc b/src/propeller/variation.cljc index 3088c62..7c2acd3 100755 --- a/src/propeller/variation.cljc +++ b/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))