From f9d23d52ee359268eb4500982478abe8ba904b4a Mon Sep 17 00:00:00 2001
From: Inari Listenmaa <inari.listenmaa@gmail.com>
Date: Wed, 25 Mar 2020 12:51:51 +0100
Subject: [PATCH] (Kor) Add more documentation

---
 src/korean/LexiconKor.gf   | 2 +-
 src/korean/ParadigmsKor.gf | 8 ++++----
 src/korean/SentenceKor.gf  | 2 +-
 3 files changed, 6 insertions(+), 6 deletions(-)

diff --git a/src/korean/LexiconKor.gf b/src/korean/LexiconKor.gf
index 157ad512d..e73654fb5 100644
--- a/src/korean/LexiconKor.gf
+++ b/src/korean/LexiconKor.gf
@@ -36,7 +36,7 @@ lin big_A = mkA "크다" ;
 -- lin black_A = mkA "" ;
 -- lin blood_N = mkN "" ;
 -- lin blow_V = mkV "" ;
--- lin blue_A = mkA "" ;
+lin blue_A = mkA "푸르다" ;
 -- lin boat_N = mkN "" ;
 -- lin bone_N = mkN "" ;
 -- lin boot_N = mkN "" ;
diff --git a/src/korean/ParadigmsKor.gf b/src/korean/ParadigmsKor.gf
index 66eeb2379..ed5b05236 100644
--- a/src/korean/ParadigmsKor.gf
+++ b/src/korean/ParadigmsKor.gf
@@ -28,15 +28,15 @@ oper
 
   -- Verbs
   mkV : overload {
-    mkV : (plain : Str) -> V ;    -- Predictable verb: plaininitive form as argument
-    mkV : (nore : Str) -> (hada : V) -> V ; -- Add a prefix to an existing verb, e.g. 노래하다
+    mkV : (plain : Str) -> V ;    -- Predictable verb. Takes plain, uninflected -다 form, e.g. 가다
+    mkV : (nore : Str) -> (hada : V) -> V ; -- Add a prefix to an existing verb, e.g. 노래+하다
   } ;
 
   copula : V ; -- The copula verb ''
 
   mkV2 : overload {
-    mkV2 : (plain : Str) -> V2 ; -- Regular verb. Takes -다 form, object particle is 를.
-    mkV2 : V -> V2 ; -- Takes pre-constructed V, object particle is 를.
+    mkV2 : (plain : Str) -> V2 ; -- Regular verb. Takes plain, uninflected -다 form, object particle is 를.
+    mkV2 : V -> V2 ; -- Takes preconstructed V, object particle is 를.
     } ;
 
   -- mkV3 : overload {
diff --git a/src/korean/SentenceKor.gf b/src/korean/SentenceKor.gf
index 2f394ca2b..a32a80d2c 100644
--- a/src/korean/SentenceKor.gf
+++ b/src/korean/SentenceKor.gf
@@ -15,7 +15,7 @@ lin
 
 --2 Clauses missing object noun phrases
   -- : NP -> VPSlash -> ClSlash ;
-  SlashVP = predVP ;
+  -- SlashVP = predVP ;
 {-
   -- : ClSlash -> Adv -> ClSlash ;     -- (whom) he sees today
   AdvSlash cls adv = cls ** insertAdv adv cls ;