From 0c91baf08d61d4118f8c3bc8c369e04e07d484c8 Mon Sep 17 00:00:00 2001
From: Inari Listenmaa <inari.listenmaa@gmail.com>
Date: Wed, 13 Mar 2019 15:47:49 +0100
Subject: [PATCH] (Pes) Remove redundant exclusion of lincat of Adv

---
 src/persian/CatPes.gf     |  5 +----
 src/persian/GrammarPes.gf | 16 +++++++---------
 2 files changed, 8 insertions(+), 13 deletions(-)

diff --git a/src/persian/CatPes.gf b/src/persian/CatPes.gf
index 0cfd20e4f..fe5d2cab9 100644
--- a/src/persian/CatPes.gf
+++ b/src/persian/CatPes.gf
@@ -1,4 +1,4 @@
-concrete CatPes of Cat = CommonX - [Adv] ** open ResPes, Prelude in {
+concrete CatPes of Cat = CommonX ** open ResPes, Prelude in {
 
   flags optimize=all_subs ;
 
@@ -44,9 +44,6 @@ concrete CatPes of Cat = CommonX - [Adv] ** open ResPes, Prelude in {
     VPSlash = ResPes.VPHSlash ;
     Comp = {s : Agr => Str} ;
 
----- Adv
-    Adv = {s : Str} ;
-
 ---- Adjective
 
     AP = ResPes.Adjective ;
diff --git a/src/persian/GrammarPes.gf b/src/persian/GrammarPes.gf
index 0749eb17f..42603e115 100644
--- a/src/persian/GrammarPes.gf
+++ b/src/persian/GrammarPes.gf
@@ -1,8 +1,8 @@
 --# -path=.:../abstract:../common:../prelude
 
- concrete GrammarPes of Grammar = 
-  NounPes, 
-  VerbPes, 
+ concrete GrammarPes of Grammar =
+  NounPes,
+  VerbPes,
   AdjectivePes,
   AdverbPes,
   NumeralPes,
@@ -10,16 +10,14 @@
   QuestionPes,
   RelativePes,
   ConjunctionPes,
-  
+
   PhrasePes,
-  TextPes - [Adv], 
+  TextPes,
   StructuralPes,
-  TenseX - [Adv],
-  IdiomPes 
+  TenseX,
+  IdiomPes
   ** {
 
 flags startcat = Phr ; unlexer = text ; lexer = text ;
 
 }
-
-