From d0a65b19fdc335f1998a7979b57b985ed950b1a6 Mon Sep 17 00:00:00 2001
From: Aarne Ranta <aarne@chalmers.se>
Date: Wed, 13 Dec 2017 09:09:39 +0200
Subject: [PATCH] added ExtraFre.InvQuestIAdvCl

---
 src/french/ExtraFre.gf    | 9 ++++++++-
 src/french/ExtraFreAbs.gf | 1 +
 2 files changed, 9 insertions(+), 1 deletion(-)

diff --git a/src/french/ExtraFre.gf b/src/french/ExtraFre.gf
index 050ee4873..e27726fd8 100644
--- a/src/french/ExtraFre.gf
+++ b/src/french/ExtraFre.gf
@@ -99,7 +99,14 @@ concrete ExtraFre of ExtraFreAbs = ExtraRomanceFre **
             let cls = cl.s ! DInv ! t ! a ! p 
             in table {
               QDir   => cls ! Indic ;
-              QIndir => subjIf ++ cls ! Indic
+              QIndir => subjIf ++ cl.s ! DDir ! t ! a ! p ! Indic
+              }
+      } ;
+    InvQuestIAdvCl iadv cl = {s = \\t,a,p =>                             -- dort-il ?
+            let cls = cl.s ! DInv ! t ! a ! p 
+            in table {
+              QDir   => iadv.s ++ cls ! Indic ;
+              QIndir => iadv.s ++ cl.s ! DDir ! t ! a ! p ! Indic
               }
       } ;
 
diff --git a/src/french/ExtraFreAbs.gf b/src/french/ExtraFreAbs.gf
index 66cd107a1..046242a30 100644
--- a/src/french/ExtraFreAbs.gf
+++ b/src/french/ExtraFreAbs.gf
@@ -56,6 +56,7 @@ abstract ExtraFreAbs = ExtraRomanceAbs - [ProDrop] ** {
 
     EstcequeQuestCl : Cl -> QCl ; -- est-ce qu'il dort
     InvQuestCl : Cl -> QCl ;      -- dort-il
+    InvQuestIAdvCl : IAdv -> Cl -> QCl ;      -- dort-il
 
 
 }