support postposition adjectives

This commit is contained in:
Krasimir Angelov
2018-07-03 18:48:46 +02:00
parent 7d01f6720f
commit 6fe595104c
4 changed files with 10 additions and 9 deletions
+1 -1
View File
@@ -647,7 +647,7 @@ mkInterj : Str -> Interj
let ad = (a.s ! AAdj Posit Nom)
in regADeg ad ;
irregAdv a adv = lin A {s = table {AAdv => adv; aform => a.s ! aform}} ;
irregAdv a adv = lin A {s = table {AAdv => adv; aform => a.s ! aform}; isPre = a.isPre} ;
prepA2 : A -> Prep -> A2 ;