msyds/gf-rgl
1
0
Fork 0
forked from GitHub/gf-rgl
Code Pull Requests Activity

(Pes) Fix a bug: defective verbs don't have an imperfect prefix

Browse Source
This commit is contained in:
Inari Listenmaa
2019-02-28 17:17:26 +01:00
parent 1beb3272ac
commit 6bc2b3506c
1 changed files with 1 additions and 0 deletions
Download Patch File Download Diff File Expand all files Collapse all files

1
src/persian/MorphoPes.gf
View File

@@ -194,6 +194,7 @@ oper
defectiveVerb : (inf,pres,past : Str) -> Verb = \bayestan,bayad,bayest -> defectiveVerb : (inf,pres,past : Str) -> Verb = \bayestan,bayad,bayest ->
let invReg = mkVerb bayestan bayad in invReg ** let invReg = mkVerb bayestan bayad in invReg **
{s = \\vf => case vf of { {s = \\vf => case vf of {
ImpPrefix _ => [] ;
VAor pol _ => addN pol bayad ; VAor pol _ => addN pol bayad ;
VImp pol _ => addN pol bayad ; VImp pol _ => addN pol bayad ;
VSubj pol _ => addN pol bayad ; VSubj pol _ => addN pol bayad ;