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

(Ara) Minor fixes

Browse Source
This commit is contained in:
Inari Listenmaa
2018-11-07 11:30:00 +01:00
parent ff9a164884
commit 2888073c44
2 changed files with 2 additions and 2 deletions
Download Patch File Download Diff File Expand all files Collapse all files

2
src/arabic/NounAra.gf
View File

@@ -90,7 +90,7 @@ lin
} ; } ;
DetQuant quant num = quant ** { DetQuant quant num = quant ** {
s = \\h,g,c => quant.s ! Pl ! h ! g ! c s = \\h,g,c => quant.s ! sizeToNumber num.n ! h ! g ! c
++ num.s ! g ! (toDef quant.d num.n) ! c ; ++ num.s ! g ! (toDef quant.d num.n) ! c ;
n = num.n; n = num.n;
isNum = -- Num may come from NumCard : Card -> Num isNum = -- Num may come from NumCard : Card -> Num

2
src/arabic/QuestionAra.gf
View File

@@ -8,7 +8,7 @@ concrete QuestionAra of Question = CatAra ** open ResAra, ParamX, Prelude, VerbA
s = \\t,p => s = \\t,p =>
table { table {
QIndir => "إِذا" ++ cl.s ! t ! p ! Verbal ; QIndir => "إِذا" ++ cl.s ! t ! p ! Verbal ;
QDir => "هَل" ++ cl.s ! t ! p ! Verbal QDir => "هَلْ" ++ cl.s ! t ! p ! Verbal
} }
}; };