From 6fa7fd67061dfff35eecd67a2b76ea65378ab1d4 Mon Sep 17 00:00:00 2001
From: Aarne Ranta <aarne@chalmers.se>
Date: Sun, 21 Jan 2018 19:01:24 +0100
Subject: [PATCH] Fre mkA improved

---
 src/french/MorphoFre.gf | 7 ++++++-
 1 file changed, 6 insertions(+), 1 deletion(-)

diff --git a/src/french/MorphoFre.gf b/src/french/MorphoFre.gf
index 91e4cfbde..e4e8908fc 100644
--- a/src/french/MorphoFre.gf
+++ b/src/french/MorphoFre.gf
@@ -141,7 +141,11 @@ oper
 
   adjPublic : Str -> Adj = \public ->
     let publique = init public + "que" in
-    mkAdj public (init public+"s") (publique) (publique+"ment") ;
+    mkAdj public (public+"s") (publique) (publique+"ment") ;
+
+  adjVif : Str -> Adj = \vif ->
+    let vive = init vif + "ve" in
+    mkAdj vif (vif+"s") (vive) (vive+"ment") ;
 
   mkAdjReg : Str -> Adj = \creux ->
     case Predef.dp 3 creux of {
@@ -153,6 +157,7 @@ oper
         "on" => adjIndien creux ;
         "er" => adjCher creux ;
 	"ic" => adjPublic creux ;
+	"if" => adjVif creux ;
         _ => case Predef.dp 1 creux of {
           "s" => adjFrancais creux ;
           "x" => adjFrancais creux ;