diff options
| author | Sébastien Dailly <sebastien@chimrod.com> | 2021-08-27 17:20:59 +0200 |
|---|---|---|
| committer | Sébastien Dailly <sebastien@chimrod.com> | 2021-08-27 17:20:59 +0200 |
| commit | 26faec7a69051f639b50c8e8741f0823c6be52a2 (patch) | |
| tree | a610d0306bf3e0c84f7993be7c290965fcab1900 /src/lib/process.ml | |
| parent | c8b49eed4cf92e7d2dd01dce779ef84ccae733eb (diff) | |
Managed diphtongues
Diffstat (limited to 'src/lib/process.ml')
| -rw-r--r-- | src/lib/process.ml | 16 |
1 files changed, 7 insertions, 9 deletions
diff --git a/src/lib/process.ml b/src/lib/process.ml index a74c44b..8c463b5 100644 --- a/src/lib/process.ml +++ b/src/lib/process.ml @@ -32,7 +32,6 @@ module M(T:Sounds.T) = struct = function | [] -> acc | hd::tl -> - let modifier = (Modifiers.vocalize_s) :: (Modifiers.nasal) :: m in let (voyel, consonants), ending_consonant = apply_modifiers @@ -41,18 +40,17 @@ module M(T:Sounds.T) = struct let voyel = change_voyel ((voyel, consonants), ending_consonant) in (* Add the last consonant and the voyel *) - let m, acc = match ending_consonant with - | None -> modifier, voyel::acc + let acc = match ending_consonant with + | None -> voyel::acc | Some s -> - let default = modifier, voyel :: acc in + let default = voyel :: acc in match s with | None -> default | Some s -> - - modifier, voyel :: s::acc in + voyel :: s::acc in match consonants with - | None -> _rebuild ~m acc None tl + | None -> _rebuild ~m:[] acc None tl | Some {ending; opening; following} -> let acc = match following with @@ -60,8 +58,8 @@ module M(T:Sounds.T) = struct | Some s -> s::acc in match opening with - | [] ->_rebuild ~m acc ending tl - | opening -> _rebuild ~m (opening @ acc) ending tl + | [] ->_rebuild ~m:[] acc ending tl + | opening -> _rebuild ~m:[] (opening @ acc) ending tl (** Rebuild the list in the normal order |