(Ara) Small orthography fixes

This commit is contained in:
Inari Listenmaa
2018-10-18 14:45:50 +02:00
parent 2142146577
commit 08ff8ee3e5
2 changed files with 7 additions and 5 deletions
+3 -4
View File
@@ -286,10 +286,9 @@ resource ParadigmsAra = open
v1' : Str -> Vowel -> Vowel -> Verb =
\rootStr,vPerf,vImpf ->
let { root = mkRoot3 rootStr ;
l = dp 2 rootStr } in --last rootStr
case <l, root.c> of {
<"ّ",_> => v1geminate rootStr vPerf vImpf ;
let { root = mkRoot3 rootStr } in
case <root.l, root.c> of {
<"ّ", _> => v1geminate rootStr vPerf vImpf ;
<"و"|"ي",_> => case vPerf of {
i => v1defective_i root vImpf ;
_ => v1defective_a root vImpf } ;