remove predicative form in CompareA UseComparA

This commit is contained in:
1Regina
2022-02-21 11:53:56 +08:00
committed by Inari Listenmaa
parent 7f58e8ec8b
commit fe5c124602

View File

@@ -5,13 +5,13 @@ concrete AdjectiveChi of Adjective = CatChi ** open ResChi, Prelude in {
PositA a = a ** {hasAdA = False} ;
ComparA a np = a ** {
s = table { adjPlace => than_s ++ np.s ++ a.s!adjPlace};
s = table {_=> than_s ++ np.s ++ a.s!Attr};
hasAdA = False
};
UseComparA a = a ** {
s = table { adjPlace => geng_s ++ a.s!adjPlace};
s = table { _=> geng_s ++ a.s!Attr};
hasAdA = False
};