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