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