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
| Anter --# notpresent
;
Tense =
Tense =
Pres
| Past --# notpresent
| Fut --# notpresent

View File

@@ -13,7 +13,7 @@ concrete QuestionEng of Question = CatEng ** open ResEng, Prelude in {
} ---- "whether" in ExtEng
} ;
QuestVP qp vp =
QuestVP qp vp =
let cl = mkClause (qp.s ! npNom) (agrP3 qp.n) vp
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?
verb = vp.s.s ;
vaux = auxVerb vp.s.vtyp ;
vaux = auxVerb vtyp ;
---- VPAgr : this is where it really matters
part = case vp.agr.p2 of {