diff options
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 |