diff options
| author | Sébastien Dailly <sebastien@chimrod.com> | 2021-08-29 12:11:24 +0200 |
|---|---|---|
| committer | Sébastien Dailly <sebastien@chimrod.com> | 2021-08-29 12:11:24 +0200 |
| commit | 6ccbcc2cadae41574e33226b9072a08354880d28 (patch) | |
| tree | af36b9e593a3d36be9acdb1383b1cbd1d6f3abcc /src/lib/modifiers | |
| parent | 3b8c136ebdba7f4b5b4d6baad08d0a75c3b2dc86 (diff) | |
Update
Diffstat (limited to 'src/lib/modifiers')
| -rw-r--r-- | src/lib/modifiers/nasal.ml | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/src/lib/modifiers/nasal.ml b/src/lib/modifiers/nasal.ml index fbaa35d..8fdc60c 100644 --- a/src/lib/modifiers/nasal.ml +++ b/src/lib/modifiers/nasal.ml @@ -1,3 +1,5 @@ +(* Remove the ending consonant, and transform the voyel into + the nasal form *) let transform : (module Sounds.T with type t = 'a) -> 'a Sig.consonants option -> 'a Sig.t -> 'a Sig.t = fun (type el) m c init -> @@ -28,8 +30,6 @@ let process match ending, is_voyel, opening with | Some ending, _, _ when T.is_nasal ending -> transform m c init - (* Remove the ending consonant, and transform the voyel into - the nasal form *) | None, false, Some (opening::tl) when T.is_nasal opening -> (* If there is no voyel here, transform the opening consonant as an ending consonant for the next syllabus *) |