started a separate module for names

src/korean/CatKor.gf

@@ -115,7 +115,7 @@ concrete CatKor of Cat = CommonX ** open ResKor, Prelude in {
     N = ResKor.Noun ;
     N2 = ResKor.Noun2 ;
     N3 = ResKor.Noun3 ;
-    GN, SN, PN = ResKor.NounPhrase ;
+    GN, SN, LN, PN = ResKor.NounPhrase ;
 
 linref
   V, V2, V3 = linVerb ;

src/korean/ExtendKor.gf

@@ -9,10 +9,4 @@ concrete ExtendKor of Extend = CatKor
     -- : NP -> NP -> NP
     ApposNP np1 np2 = np1 ** {s = \\nf => np1.s ! nf ++ np2.s ! nf} ;
 
-lin GivenName, MaleSurname, FemaleSurname = \n -> n ;
-lin FullName gn sn = {
-       s = \\nf => gn.s ! nf ++ sn.s ! nf ;
-       p = gn.p
-    } ;
-
 } ;

src/korean/GrammarKor.gf

@@ -12,7 +12,8 @@ concrete GrammarKor of Grammar =
   TextX,
   StructuralKor,
   IdiomKor,
-  TenseX
+  TenseX,
+  NamesKor
   ** {
 
 flags startcat = Phr ; unlexer = text ; lexer = text ;

src/korean/NamesKor.gf

@@ -0,0 +1,9 @@
+concrete NamesKor of Names = CatKor ** open ResKor in {
+
+lin GivenName, MaleSurname, FemaleSurname = \n -> n ;
+lin FullName gn sn = {
+       s = \\nf => gn.s ! nf ++ sn.s ! nf ;
+       p = gn.p
+    } ;
+
+}