From cc3a2646f8084e6f79d7ab4770ee6b7826066338 Mon Sep 17 00:00:00 2001
From: Inari Listenmaa <inari.listenmaa@gmail.com>
Date: Tue, 7 Apr 2020 21:09:19 +0200
Subject: [PATCH] (Kor) Small cleanup + new words

---
 src/korean/LexiconKor.gf    | 2 +-
 src/korean/ResKor.gf        | 2 --
 src/korean/StructuralKor.gf | 2 +-
 3 files changed, 2 insertions(+), 4 deletions(-)

diff --git a/src/korean/LexiconKor.gf b/src/korean/LexiconKor.gf
index 977f3ce2..f57e9e14 100644
--- a/src/korean/LexiconKor.gf
+++ b/src/korean/LexiconKor.gf
@@ -279,7 +279,7 @@ lin person_N = mkN "사람" ;
 -- lin read_V2 = mkV2 "" ;
 -- lin ready_A = mkA "" ;
 -- lin reason_N = mkN "" ;
-lin red_A = mkA "빨갛다" ;
+lin red_A = mkA "빨갛다" "빨개요" "빨갛습니다" "빨간" ;
 -- lin religion_N = mkN "" ;
 -- lin restaurant_N = mkN "" ;
 -- lin river_N = mkN "" ;
diff --git a/src/korean/ResKor.gf b/src/korean/ResKor.gf
index a6b4b725..e8907c24 100644
--- a/src/korean/ResKor.gf
+++ b/src/korean/ResKor.gf
@@ -300,12 +300,10 @@ oper
 
   Complement : Type = {
     s : VForm => Str ;
-    -- compar : Str ; -- comparative is discontinuous
     } ;
 
   emptyComp : Complement = {
     s = \\_ => [] ;
-    -- compar : Str ;
   } ;
 
   BaseVP : Type = {
diff --git a/src/korean/StructuralKor.gf b/src/korean/StructuralKor.gf
index 60b3f719..f3c5cb92 100644
--- a/src/korean/StructuralKor.gf
+++ b/src/korean/StructuralKor.gf
@@ -69,7 +69,7 @@ lin only_Predet = {s = \\_ => "만" ; p = Consonant} ;
 
 
 --lin every_Det = ;
-lin few_Det = mkDet "조금" Pl ;
+lin few_Det = mkDet "조금의" Pl ;
 lin many_Det = mkDet "많은" Pl ;
 -- lin much_Det = ;