1
0
forked from GitHub/gf-rgl

rm trailing whitespace

This commit is contained in:
odanoburu
2019-03-18 14:59:39 -03:00
parent 76bf6b7363
commit 5aedf4add6
3 changed files with 3 additions and 3 deletions

View File

@@ -11,7 +11,7 @@ resource ParamX = open Prelude in {
Simul Simul
| Anter --# notpresent | Anter --# notpresent
; ;
Tense = Tense =
Pres Pres
| Past --# notpresent | Past --# notpresent
| Fut --# notpresent | Fut --# notpresent

View File

@@ -13,7 +13,7 @@ concrete QuestionEng of Question = CatEng ** open ResEng, Prelude in {
} ---- "whether" in ExtEng } ---- "whether" in ExtEng
} ; } ;
QuestVP qp vp = QuestVP qp vp =
let cl = mkClause (qp.s ! npNom) (agrP3 qp.n) vp let cl = mkClause (qp.s ! npNom) (agrP3 qp.n) vp
in {s = \\t,a,b,_ => cl.s ! t ! a ! b ! oDir} ; ---- in {s = \\t,a,b,_ => cl.s ! t ! a ! b ! oDir} ; ----

View File

@@ -215,7 +215,7 @@ oper
clit = refl ++ vp.clit1 ++ vp.clit2 ++ vp.clit3.s ; ---- refl first? clit = refl ++ vp.clit1 ++ vp.clit2 ++ vp.clit3.s ; ---- refl first?
verb = vp.s.s ; verb = vp.s.s ;
vaux = auxVerb vp.s.vtyp ; vaux = auxVerb vtyp ;
---- VPAgr : this is where it really matters ---- VPAgr : this is where it really matters
part = case vp.agr.p2 of { part = case vp.agr.p2 of {