(Pes) Use perfect for subjunctive in haveVerb

2019-04-17 14:37:43 +02:00
parent 4277ac33ad
commit 92a49f9c47
1 changed files with 2 additions and 1 deletions
--- a/src/persian/MorphoPes.gf
+++ b/src/persian/MorphoPes.gf
@@ -315,7 +315,8 @@ oper

  haveVerb : Verb = haveRegV ** {s = table {
    ImpPrefix _ => [] ;
-    VAor Neg agr => imperfectSuffix agr (addN "دار") ;
+    VAor Neg agr  => imperfectSuffix agr (addN "دار") ;
+    VSubj pol agr => haveRegV.s ! VPerf pol agr ;
    vf          => haveRegV.s ! vf }
  } where { haveRegV = mkVerb "داشتن" "دار" } ;