From f68d06c6418e3d025e81e819183dfa049605bfa0 Mon Sep 17 00:00:00 2001
From: Sébastien Dailly <sebastien@chimrod.com>
Date: Tue, 14 Sep 2021 13:46:38 +0200
Subject: Corrections

---
 src/lib/modifiers/mute.ml | 6 +++---
 1 file changed, 3 insertions(+), 3 deletions(-)

(limited to 'src/lib/modifiers/mute.ml')

diff --git a/src/lib/modifiers/mute.ml b/src/lib/modifiers/mute.ml
index 7b58336..2a307e0 100644
--- a/src/lib/modifiers/mute.ml
+++ b/src/lib/modifiers/mute.ml
@@ -9,9 +9,9 @@ let process
   = fun init ->
     let ((v, c) , ending) = init in
     let is_voyel = Sounds.is_voyel v in
-    match is_voyel, c with
-    | false, Some c ->
-      let c = { c with Sig.opening = List.map ~f:Sounds.muted c.Sig.opening } in
+    match is_voyel, c, ending with
+    | false, Some c, None ->
+      let c = { c with Sig.opening = List.map ~f:Sounds.mute c.Sig.opening } in
       ((v, Some c) , ending)
     | _ -> init
 
-- 
cgit v1.2.3