From 6ccbcc2cadae41574e33226b9072a08354880d28 Mon Sep 17 00:00:00 2001 From: Sébastien Dailly Date: Sun, 29 Aug 2021 12:11:24 +0200 Subject: Update --- src/lib/modifiers/nasal.ml | 4 ++-- 1 file changed, 2 insertions(+), 2 deletions(-) (limited to 'src/lib/modifiers') 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 *) -- cgit v1.2.3