diff options
Diffstat (limited to 'src/lib/modifiers')
| -rw-r--r-- | src/lib/modifiers/e.ml | 9 |
1 files changed, 4 insertions, 5 deletions
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) |