Do not consider adding at a :gap

2023-12-07 16:47:50 -05:00 · 2023-12-07 16:47:50 -05:00 · 82657abf32
commit 82657abf32
parent f6a9426751
1 changed files with 2 additions and 1 deletions
--- a/src/propeller/variation.cljc
+++ b/src/propeller/variation.cljc
@ -111,7 +111,8 @@ The function `new-individual` returns a new individual produced by selection and
  existing instruction."
  [plushy instructions umad-rate]
  (apply concat
-         (map #(if (< (rand) umad-rate)
+         (map #(if (and (not= % :gap)
+                        (< (rand) umad-rate))
                 (shuffle [% (utils/random-instruction instructions)])
                 [%])
              plushy)))