added TPastSimple

Author: krangelov

src/korean/ExtendKor.gf

@@ -3,10 +3,11 @@
 concrete ExtendKor of Extend = CatKor
   -- ** ExtendFunctor - [ApposNP]
   -- with (Grammar=GrammarKor)
-  ** open Prelude, ResKor, NounKor, Coordination in {
+  ** open Prelude, ResKor, NounKor, Coordination, TenseX in {
 
   lin
     -- : NP -> NP -> NP
     ApposNP np1 np2 = np1 ** {s = \\nf => np1.s ! nf ++ np2.s ! nf} ;
 
+    TPastSimple = TPast ;
 } ;