From a18ffbe232489f893d3862d6231ad2efcf9a60a7 Mon Sep 17 00:00:00 2001
From: Inari Listenmaa <inari.listenmaa@gmail.com>
Date: Fri, 3 Apr 2020 11:55:32 +0200
Subject: [PATCH] (Kor) Add UsePron and PossPron, minor fix in i_Pron

---
 src/korean/CatKor.gf        | 2 +-
 src/korean/NounKor.gf       | 7 ++-----
 src/korean/StructuralKor.gf | 2 +-
 3 files changed, 4 insertions(+), 7 deletions(-)

diff --git a/src/korean/CatKor.gf b/src/korean/CatKor.gf
index 97939e9b..8623b1cc 100644
--- a/src/korean/CatKor.gf
+++ b/src/korean/CatKor.gf
@@ -116,7 +116,7 @@ concrete CatKor of Cat = CommonX ** open ResKor, Prelude in {
     N = ResKor.Noun ;
     N2 = ResKor.Noun2 ;
     N3 = ResKor.Noun3 ;
-    PN = ResKor.PNoun ;
+    PN = ResKor.NounPhrase ;
 
 linref
   V, V2, V3, VP = linVerb ;
diff --git a/src/korean/NounKor.gf b/src/korean/NounKor.gf
index b31105b4..73ef7f62 100644
--- a/src/korean/NounKor.gf
+++ b/src/korean/NounKor.gf
@@ -27,7 +27,7 @@ concrete NounKor of Noun = CatKor ** open ResKor, Prelude in {
 --    } ;
 
   -- : Pron -> NP ;
-  -- UsePron pron = pron ;
+  UsePron pron = pron ** {empty = []};
 
   -- : Predet -> NP -> NP ; -- only the man
   PredetNP predet np = np ** {s =
@@ -130,10 +130,7 @@ concrete NounKor of Noun = CatKor ** open ResKor, Prelude in {
   IndefArt = mkQuant [] [] ;
 
   -- : Pron -> Quant
-  -- PossPron pron =
-  --   let p = pron.poss ;
-  --    in DefArt ** {
-  --       } ;
+  PossPron pron = pron.poss ;
 
 --2 Common nouns
 
diff --git a/src/korean/StructuralKor.gf b/src/korean/StructuralKor.gf
index 4123c7e2..477b401e 100644
--- a/src/korean/StructuralKor.gf
+++ b/src/korean/StructuralKor.gf
@@ -130,7 +130,7 @@ lin to_Prep = mkPrep "에";
 -- Pronouns are closed class, no constructor in ParadigmsKor.
   -- it_Pron =
   i_Pron = let iReg : Pronoun = mkPron "저" "제" in
-    iReg ** {s = table {Subj => "제가"; nf => iReg.s ! nf}
+    iReg ** {s = table {Subject => "제가"; nf => iReg.s ! nf}
     } ;
   youPol_Pron = mkPron "당신" ;
   youSg_Pron = mkPron "너" ; -- NB. this is very informal, best not used