(Kor) Small cleanup

src/korean/LexiconKor.gf

@@ -325,7 +325,7 @@ lin person_N = mkN "사람" ;
 -- lin skin_N = mkN "" ;
 -- lin sky_N = mkN "" ;
 -- lin sleep_V = mkV "" ;
-lin small_A = mkA "작아다" ;
+lin small_A = mkA "작다" ;
 -- lin smell_V = mkV "" ;
 -- lin smoke_N = mkN "" ;
 -- lin smooth_A = mkA "" ;

src/korean/ResKor.gf

@@ -99,6 +99,8 @@ oper
 
   mkPrep : Str -> Postposition = \str -> ss str ;
 
+  emptyPP = mkPrep [] ;
+
 --------------------------------------------------------------------------------
 -- Adjectives
 
@@ -134,7 +136,7 @@ oper
 
   mkVerb2 : (plain : Str) -> Verb2 = \plain ->
     let v = mkVerb plain Active
-     in v ** {c2 = Object ; p2 = mkPrep []} ;
+     in v ** {c2 = Object ; p2 = emptyPP} ;
 
   mkVerbFull : (x1,_,_,_,_,x6 : Str) -> VerbType -> Verb =
     \plain,polite,formal,planeg,polneg,formneg,vt -> {

src/korean/VerbKor.gf

@@ -58,7 +58,6 @@ lin
   SlashV2Q v2q qs = ;
 
   -- : V2A -> AP -> VPSlash ;  -- paint (it) red
-   -- TODO: is "red" plural in "paint them red"?
   SlashV2A v2a ap = useVc v2a ** {
     aComp = \\_ => (CompAP ap).aComp ! Sg3 Masc
   } ;
@@ -105,9 +104,6 @@ lin
   --   let adv = prepNP prep emptyNP
   --    in insertAdv vp adv ;
 
-
-
-
 --2 Complements to copula
 
 -- Adjectival phrases, noun phrases, and adverbs can be used.