diff options
Diffstat (limited to 'src/lib/process.ml')
| -rw-r--r-- | src/lib/process.ml | 5 |
1 files changed, 4 insertions, 1 deletions
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) |