(Kor) Add AForm, change VP and Comp.

2020-03-11 16:54:02 +01:00
parent 30ce18e124
commit c31c00dd83
5 changed files with 28 additions and 18 deletions
--- a/src/korean/AdjectiveKor.gf
+++ b/src/korean/AdjectiveKor.gf
@@ -37,6 +37,7 @@ concrete AdjectiveKor of Adjective = CatKor ** open ResKor, Prelude in {

  -- : Ord -> AP ;       -- warmest
  AdjOrd ord = ord ** {
+    s = \\_ => ord.s ;
    compar = []
    } ;