coding of ExtraSwe

This commit is contained in:
aarne
2010-06-01 19:02:21 +00:00
parent 6404f1daed
commit ee75665c74

View File

@@ -8,7 +8,7 @@ lin
agr = np.a ;
vps = vp.s ! VPFinite t a ;
verb = case <<t,a> : ParamX.Tense * Anteriority> of {
<Pres,Simul> => {fin = "gör" ; inf = vps.inf}
<Pres,Simul> => {fin = "gör" ; inf = vps.inf}
; --# notpresent
<Past,Simul> => {fin = "gjorde" ; inf = vps.inf} ; --# notpresent
_ => vps --# notpresent