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

This commit is contained in:
Inari Listenmaa
2019-02-28 17:17:26 +01:00
parent 1beb3272ac
commit 6bc2b3506c

View File

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