diff options
| author | Sébastien Dailly <sebastien@chimrod.com> | 2021-09-07 22:33:45 +0200 |
|---|---|---|
| committer | Sébastien Dailly <sebastien@chimrod.com> | 2021-09-07 22:33:45 +0200 |
| commit | 80b77d19cee0f3df4457005eead1128b90754a48 (patch) | |
| tree | 52a36a9f68a2ba06631c1a1a48576afb9c617cc8 /src/lib/modifiers | |
| parent | 96a225fb5fa24a71e1b76e0369126b3bcfab5f81 (diff) | |
Added tests
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) |