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

(Pes) Remove unnecessary QForm from QS and QCl

Browse Source 
Y/N questions are formed the same way in direct and indirect, not like 
English "do you sleep / if you sleep".
This commit is contained in:
Inari Listenmaa
2019-03-14 15:14:03 +01:00
parent ac4130ca2e
commit 47aa4a969d
6 changed files with 28 additions and 47 deletions
Download Patch File Download Diff File Expand all files Collapse all files
src/persian/SentencePes.gf
+2 -2
View File
@@ -37,7 +37,7 @@ concrete SentencePes of Sentence = CatPes ** open Prelude, ResPes,Predef in {
{c2 = slash.c2} ;
EmbedS s = {s = conjThat ++ s.s ! Indic} ;
EmbedQS qs = {s = qs.s ! QIndir} ;
EmbedQS qs = qs ;
EmbedVP vp = {s = showVPH Inf defaultAgr vp} ; --- agr
@@ -48,7 +48,7 @@ concrete SentencePes of Sentence = CatPes ** open Prelude, ResPes,Predef in {
} ;
UseQCl temp p qcl = let vt = TA temp.t temp.a in {
s = \\q => temp.s ++ p.s ++ qcl.s ! vt ! p.p ! q;
s = temp.s ++ p.s ++ qcl.s ! vt ! p.p ;
} ;
UseRCl temp p rcl = let vt = TA temp.t temp.a in rcl ** {