(Kor) Fix bug in ConjAP: now uses the neg stem

2020-05-22 07:56:41 +02:00
parent 9f1fc65e7a
commit 93f5395efc
2 changed files with 4 additions and 2 deletions
--- a/src/korean/ConjunctionKor.gf
+++ b/src/korean/ConjunctionKor.gf
@@ -101,8 +101,10 @@ lin

 oper
  mkFirstAP : ResKor.AdjPhrase -> VForm => ConjType => Str = \ap ->
-    \\af,conj => ap.compar
-              ++ glue (ap.s ! VStem Pos) (conjTable ! VStar ! conj ! ap.p) ;
+    \\af,conj => ap.compar ++ case isPos af of {
+       True  => glue (ap.s ! VStem Pos) (conjTable ! VStar ! conj ! ap.p) ;
+       False => glue (ap.s ! VStem Neg) (conjTable ! VStar ! conj ! ap.pNeg)
+    } ;

 {-
 lincat
--- a/src/korean/ParamKor.gf
+++ b/src/korean/ParamKor.gf