forked from GitHub/gf-rgl
rm trailing whitespace
This commit is contained in:
@@ -11,7 +11,7 @@ resource ParamX = open Prelude in {
|
||||
Simul
|
||||
| Anter --# notpresent
|
||||
;
|
||||
Tense =
|
||||
Tense =
|
||||
Pres
|
||||
| Past --# notpresent
|
||||
| Fut --# notpresent
|
||||
|
||||
@@ -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} ; ----
|
||||
|
||||
|
||||
@@ -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 {
|
||||
|
||||
Reference in New Issue
Block a user