fix position computation for switch

src/libaevol/7/Dna_7.cpp

@@ -227,7 +227,11 @@ Mutation* Dna_7::do_switch(size_type pos
 #endif
 
   // Remove promoters containing the switched base
-  ann_chrsm_->promoter_list().remove_promoters_around(pos, Utils::mod(pos + 1, length_), length_);
+  #ifdef __EUKARYOTE
+    ann_chrsm_->promoter_list().remove_promoters_around(pos, pos + 1);
+  #else
+    ann_chrsm_->promoter_list().remove_promoters_around(pos, Utils::mod(pos + 1, length_), length_);
+  #endif
 
   // Look for potential new promoters containing the switched base
   if (length() >= PROM_SIZE)