From 80b77d19cee0f3df4457005eead1128b90754a48 Mon Sep 17 00:00:00 2001 From: Sébastien Dailly Date: Tue, 7 Sep 2021 22:33:45 +0200 Subject: Added tests --- src/lib/modifiers/e.ml | 9 ++++----- 1 file changed, 4 insertions(+), 5 deletions(-) (limited to 'src/lib/modifiers') diff --git a/src/lib/modifiers/e.ml b/src/lib/modifiers/e.ml index bd4a940..2779544 100644 --- a/src/lib/modifiers/e.ml +++ b/src/lib/modifiers/e.ml @@ -8,9 +8,12 @@ let ending_e = fun init -> let ((v, c) , ending) = init in + (* if v = Sounds.diphtongue Sounds.semi_voyel_y Sounds.schwa then ((Sounds.i, c), ending) - else if v = Sounds.schwa then ( + else + *) + if v = Sounds.schwa then ( match c, ending with (* If there is no consonant, and just a final e, remove it *) | None, None -> ((Sounds.none, c), ending) @@ -25,10 +28,6 @@ let process let ((v, c) , ending) = init in match ending with - | None when v = Sounds.schwa -> - (* If there is no more consononant in the syllabe, change the e - into eu, like in sera *) - ((Sounds.eu `Closed, c) , ending) | Some _ when v = Sounds.schwa -> (* If there is an ending consonant, change the e into E like essai *) ((Sounds.e `Opened, c) , ending) -- cgit v1.2.3