From 636851c23e17ca22347d68ec9ed47d7aa28adc66 Mon Sep 17 00:00:00 2001
From: inari <inari@chalmers.se>
Date: Fri, 9 May 2014 15:06:28 +0000
Subject: [PATCH] Fixed IndefArt in NounPes

---
 lib/src/persian/NounPes.gf | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/lib/src/persian/NounPes.gf b/lib/src/persian/NounPes.gf
index 159785969..a925ca3f2 100644
--- a/lib/src/persian/NounPes.gf
+++ b/lib/src/persian/NounPes.gf
@@ -79,7 +79,7 @@ concrete NounPes of Noun = CatPes ** open ResPes, Prelude in {
     OrdSuperl a = {s = a.s ! bEzafa ++ taryn; n = Sg} ; -- check the form of adjective
 
     DefArt = {s = \\_ => [] ; a = defaultAgrPes ; fromPron = False} ;
-    IndefArt = {s = \\_ => IndefArticle ; a =defaultAgrPes ; fromPron = False} ;
+    IndefArt = {s = table { Sg => IndefArticle ; Pl => []} ; a =defaultAgrPes ; fromPron = False} ;
 
     MassNP cn = {s =\\c => case c of {
       NPC bEzafa => cn.s ! bEzafa ! Sg ;