From 9c2e4a2943c2f8bc6ebf871c4b9d637fd81a27e1 Mon Sep 17 00:00:00 2001
From: Inari Listenmaa <inari.listenmaa@gmail.com>
Date: Wed, 15 May 2019 16:48:09 +0200
Subject: [PATCH] (Pes) Minor lexical fixes

---
 src/persian/LexiconPes.gf    | 2 +-
 src/persian/StructuralPes.gf | 2 +-
 2 files changed, 2 insertions(+), 2 deletions(-)

diff --git a/src/persian/LexiconPes.gf b/src/persian/LexiconPes.gf
index 9f84da834..18a7f76d7 100644
--- a/src/persian/LexiconPes.gf
+++ b/src/persian/LexiconPes.gf
@@ -89,7 +89,7 @@ concrete LexiconPes of Lexicon = CatPes **
   girl_N = mkN02 "دختر" animate;
   glove_N = mkN01 "دستکش" inanimate;
   gold_N = mkN01 "طلا" inanimate;
-  good_A = mkA "خوب" ;
+  good_A = mkA "خوب" "بهتر" "خوب" ;
   go_V = mkV "رفتن" "رو";
   green_A = mkA "سبز" ;
   harbour_N = mkN "بندر" "بنادر" inanimate;
diff --git a/src/persian/StructuralPes.gf b/src/persian/StructuralPes.gf
index 922015a25..033122281 100644
--- a/src/persian/StructuralPes.gf
+++ b/src/persian/StructuralPes.gf
@@ -21,7 +21,7 @@ concrete StructuralPes of Structural = CatPes **
   by8agent_Prep = mkPrep "توسط" ;
   by8means_Prep = mkPrep "با" ;
 --  can8know_VV,can_VV = mkVV (mkV "سکن") ;
-  can_VV = mkVV (mkV_1 "توانستن") ; ---- AR
+  can_VV = let isAux = False in mkVV isAux subjunctive (mkV_1 "توانستن") ; ---- AR
   during_Prep = mkPrep ["در طول"] ;
   either7or_DConj = sd2 "یا" "یا" ** {n = Sg} ;
 --  everybody_NP =  R.indeclNP "هر کwی";