From 12ccc075d724f9985be488b162b243f46dff871a Mon Sep 17 00:00:00 2001
From: Sébastien Dailly <sebastien@chimrod.com>
Date: Wed, 1 Sep 2021 18:33:26 +0200
Subject: Made all tests pass

---
 src/lib/process.ml | 5 ++++-
 1 file changed, 4 insertions(+), 1 deletion(-)

(limited to 'src/lib/process.ml')

diff --git a/src/lib/process.ml b/src/lib/process.ml
index 8c463b5..fa0d056 100644
--- a/src/lib/process.ml
+++ b/src/lib/process.ml
@@ -32,7 +32,10 @@ module M(T:Sounds.T) = struct
     = function
       | [] -> acc
       | hd::tl ->
-        let modifier = (Modifiers.vocalize_s) :: (Modifiers.nasal) :: m in
+
+        let modifier = match tl with
+          | [] -> Modifiers.nasal::m
+          | _ -> (Modifiers.vocalize_s) :: (Modifiers.nasal) :: m in
         let (voyel, consonants), ending_consonant =
           apply_modifiers
             (hd, ending_consonant)
-- 
cgit v1.2.3