From 137384038966bf17d845afca9f8fb2ae649780db Mon Sep 17 00:00:00 2001
From: Inari Listenmaa <inari.listenmaa@gmail.com>
Date: Wed, 23 Jan 2019 16:26:00 +0100
Subject: [PATCH] (Ara) Add some comments

---
 src/arabic/QuestionAra.gf | 6 ++----
 src/arabic/ResAra.gf      | 4 ++--
 2 files changed, 4 insertions(+), 6 deletions(-)

diff --git a/src/arabic/QuestionAra.gf b/src/arabic/QuestionAra.gf
index aa059ebd..b92675c1 100644
--- a/src/arabic/QuestionAra.gf
+++ b/src/arabic/QuestionAra.gf
@@ -8,20 +8,18 @@ concrete QuestionAra of Question = CatAra ** open ResAra, ParamX, Prelude, VerbA
       s = \\t,p =>
         table {
           QIndir => "إِذا" ++ cl.s ! t ! p ! toOrder QIndir ;
-          QDir => "هَلْ" ++ cl.s ! t ! p ! toOrder QDir
+          QDir => "هَلْ" ++ cl.s ! t ! p ! Verbal -- yes/no question
         }
       };
 
     -- ComplSlashIP vps ip = {} ;
 
-    --IL guessed
     QuestVP qp vp =
      let np = ip2np qp vp.isPred ;
          cl = PredVP np vp ;
       in { s = \\t,p,qf => cl.s ! t ! p ! toOrder qf } ;
 
----- AR guessed
-   QuestIAdv iadv cl = {s = \\t,p,qf => iadv.s ++ cl.s ! t ! p ! toOrder qf} ;
+   QuestIAdv iadv cl = {s = \\t,p,qf => iadv.s ++ cl.s ! t ! p ! Verbal} ; -- Verbal word order, because there is no pre-existing question word /IL
 
 ---- IL guessed
    -- : IComp -> NP -> QCl
diff --git a/src/arabic/ResAra.gf b/src/arabic/ResAra.gf
index 06d776e6..4046973f 100644
--- a/src/arabic/ResAra.gf
+++ b/src/arabic/ResAra.gf
@@ -681,8 +681,8 @@ oper
 
   -- these are chosen in many places, trying to be consistent
   toOrder : QForm -> Order = \qf ->
-    case qf of { QIndir => Nominal ;
-                 QDir   => Verbal } ;
+    case qf of { QDir   => Nominal ; -- works for wh-questions, not for y/n
+                 QIndir => Verbal } ;
 
 -----------------------------------------------------------------------------
 -- Relative