(Ara) Add هَل in QuestCl, not in UseQCl

2018-09-21 09:08:11 +02:00
parent 13ccd9d621
commit 341b96da9c
3 changed files with 22 additions and 2 deletions
@@ -120,7 +120,7 @@ concrete SentenceAra of Sentence = CatAra ** open
    UseQCl t ap qcl = --{s = cl.s ! t ! p ! Verbal } ;
      {s = 
         table {
-           QDir => "هَل" ++ qcl.s ! ResAra.Pres ! ap.p ! QDir;
+           QDir => qcl.s ! ResAra.Pres ! ap.p ! QDir;
           QIndir =>  qcl.s ! ResAra.Pres ! ap.p ! QIndir
         }
 {-         case t of {