From 853e281a6719125866f8b948540944c571b091c6 Mon Sep 17 00:00:00 2001
From: Sébastien Dailly <sebastien@chimrod.com>
Date: Sat, 4 Sep 2021 10:52:19 +0200
Subject: Update
---
src/lib/modifiers/mute.ml | 4 +++-
src/lib/prononciation.mly | 3 ++-
2 files changed, 5 insertions(+), 2 deletions(-)
(limited to 'src/lib')
diff --git a/src/lib/modifiers/mute.ml b/src/lib/modifiers/mute.ml
index e23965f..b89fda7 100644
--- a/src/lib/modifiers/mute.ml
+++ b/src/lib/modifiers/mute.ml
@@ -1,8 +1,10 @@
open StdLabels
+
(** Mute the last consonant if there is no voyel in the syllabus.
This modifier is only applied in the first step, and not repeated anymore.
-*)let process
+*)
+let process
: 'a Sig.modifier
= fun init ->
let ((v, c) , ending) = init in
diff --git a/src/lib/prononciation.mly b/src/lib/prononciation.mly
index fdb1298..65e203c 100644
--- a/src/lib/prononciation.mly
+++ b/src/lib/prononciation.mly
@@ -53,7 +53,6 @@
%token EOL
%nonassoc Low
-%left R
%right High
%start<Tokens.token list> main
@@ -87,6 +86,7 @@ letters
| D { D :: [] }
| D D { D :: [] }
| F { F :: [] }
+ | F F { Nothing :: F :: [] }
| G { G :: [] }
| G I { J :: I :: [] }
| G E { J :: letter_e $2 :: [] }
@@ -116,6 +116,7 @@ letters
| Q U { K :: [] }
| R { R :: [] }
+ | R R { Nothing :: R :: [] }
| S { SZ :: [] }
| S S { Nothing :: S :: [] }
| S H { X :: [] }
--
cgit v1.2.3