GitHub/gf-rgl
1
0
Fork 1
mirror of https://github.com/GrammaticalFramework/gf-rgl.git synced 2026-05-28 09:28:54 -06:00
Code Issues Packages Projects Releases Wiki Activity

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

Browse Source
This commit is contained in:
Inari Listenmaa
2020-05-22 07:56:41 +02:00
parent 9f1fc65e7a
commit 93f5395efc
2 changed files with 4 additions and 2 deletions
Download Patch File Download Diff File Expand all files Collapse all files

6
src/korean/ConjunctionKor.gf
View File

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

BIN
src/korean/ParamKor.gf
View File

Binary file not shown.