(Ara) Misc fixes to tenses, NPs, VPs

This commit is contained in:
Inari Listenmaa
2018-11-13 17:03:32 +01:00
parent eb43758d37
commit c14e879224
5 changed files with 23 additions and 16 deletions
+1 -1
View File
@@ -13,7 +13,7 @@ concrete RelativeAra of Relative = CatAra **
s = \\t,p,agr,c =>
let
npS : Case => Str = \\_ => rp.s ! agr2ragr agr c ;
np = {s = npS ; a = agr} ;
np = emptyNP ** {s = npS ; a = agr} ;
cl = Se.PredVP np vp ;
in
cl.s ! t ! p ! Nominal