rename TPasseSimple to TPastSimple in Extend

src/abstract/Extend.gf

@@ -303,6 +303,6 @@ fun
   AnaphPron : NP -> Pron ;
 
 fun
-  TPasseSimple : Tense ;
+  TPastSimple : Tense ;
 
 }

src/bulgarian/ExtendBul.gf

@@ -317,7 +317,7 @@ lin AnaphPron np =
         <GPl,        _> => they_Pron
       } ;
 
-lin TPasseSimple = {s = []} ** {t = VPastSimple} ;  --# notpresent
+lin TPastSimple = {s = []} ** {t = VPastSimple} ;  --# notpresent
 
 }
 

src/common/ExtendFunctor.gf

@@ -127,7 +127,7 @@ lin
   UttDatIP ip = UttAccIP (lin IP ip) ; -- whom (dative) ; DEFAULT who
   UttVPShort = UttVP ; -- have fun, as opposed to "to have fun" ; DEFAULT UttVP
 
-  TPasseSimple = Grammar.TPast ;   --# notpresent
+  TPastSimple = Grammar.TPast ;   --# notpresent
 
   SQuestVPS = variants {} ; -- : NP   -> VPS -> QS ;         -- has she walked
   QuestVPS = variants {} ; --  : IP   -> VPS -> QS ;         -- who has walked

src/czech/ExtendCze.gf

@@ -27,7 +27,7 @@ concrete ExtendCze of Extend = CatCze **
     ,CompBareCN
     ,PiedPipingQuestSlash
     ,PiedPipingRelSlash
-    ,TPasseSimple
+    ,TPastSimple
     ]
   with (Grammar = GrammarCze)
     **

src/romance/ExtendRomanceFunctor.gf

@@ -278,7 +278,7 @@ incomplete concrete ExtendRomanceFunctor of Extend =
     UttDatIP ip = UttAccIP (lin IP ip) ; -- whom (dative) ; DEFAULT who
     UttVPShort = UttVP ;
 
-    TPasseSimple = {s = []} ** {t = RPasse} ;   --# notpresent
+    TPastSimple = {s = []} ** {t = RPasse} ;   --# notpresent
 
   oper
     quoted : Str -> Str = \s -> "\"" ++ s ++ "\"" ; ---- TODO bind ; move to Prelude?

src/slovak/ExtendSlo.gf

@@ -27,7 +27,7 @@ concrete ExtendSlo of Extend = CatSlo **
     ,CompBareCN
     ,PiedPipingQuestSlash
     ,PiedPipingRelSlash
-    ,TPasseSimple
+    ,TPastSimple
     ]
   with (Grammar = GrammarSlo)
     **