mirror of
https://github.com/GrammaticalFramework/gf-rgl.git
synced 2026-05-27 17:08:54 -06:00
rm trailing whitespace
This commit is contained in:
@@ -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
|
||||||
|
|||||||
@@ -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} ; ----
|
||||||
|
|
||||||
|
|||||||
@@ -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 {
|
||||||
|
|||||||
Reference in New Issue
Block a user