(Kor) Fix bug in ConjAP: now uses the neg stem
This commit is contained in:
1 parent
9f1fc65e7a
commit
93f5395efc
2 files changed
+4
-2
No files matched your search
@@ -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
|
||||
|
||||
Binary file not shown.
Reference in new issue
Block a user