(Kor) Add PNs

src/korean/NounKor.gf

@@ -23,8 +23,7 @@ concrete NounKor of Noun = CatKor ** open ResKor, Prelude in {
     } ;
 
   -- : PN -> NP ;
---  UsePN pn = pn ** {
---    } ;
+  UsePN pn = pn ;
 
   -- : Pron -> NP ;
   UsePron pron = pron ** {empty = []};

src/korean/ParadigmsKor.gf

@@ -30,6 +30,8 @@ oper
 
   -- mkA2 : Str -> Prep -> A2 ;
 
+  mkPN : Str -> PN
+   = \s -> lin PN (mkNoun s) ;
 --2 Verbs
 
   -- Verbs

src/korean/SymbolKor.gf

@@ -1,7 +1,7 @@
 --# -path=.:../abstract:../common:../prelude
 
 concrete SymbolKor of Symbol = CatKor **
-  open Prelude, ParadigmsKor, ResKor, (NS=NounKor) in {
+  open Prelude, ResKor in {
 
 lin
 
@@ -15,7 +15,14 @@ lin
   FloatPN i = mkPN i.s ;
 
   -- : Card -> PN ;                -- twelve [as proper name]
-  NumPN i = mkPN i.s ;
+  NumPN i = mkPN (i.s ! NK ! Indep) ;
+
+oper
+
+  mkPN : Str -> NounPhrase = \s -> {
+    s = \\_ => s ;
+    p = Consonant ; -- ??
+    } ;
 
 {-
 lin