(Ara) add parameter to uttVP oper

This commit is contained in:
Inari Listenmaa
2019-01-14 21:22:42 +01:00
parent 6348f06052
commit 51e714864e
4 changed files with 5 additions and 5 deletions
+1 -1
View File
@@ -44,7 +44,7 @@ concrete SentenceAra of Sentence = CatAra ** open
EmbedS s = {s = "أَنْ" ++ s.s ! Verbal} ;
EmbedQS qs = {s = qs.s ! QIndir} ;
EmbedVP vp = {s = uttVP vp ! Masc} ;
EmbedVP vp = {s = uttVP VPPerf vp ! Masc} ; -- TODO: use VPGer once it's more stable
UseCl t p cl =
{s = \\o => t.s ++ p.s ++