mirror of
https://github.com/GrammaticalFramework/gf-rgl.git
synced 2026-05-27 17:08:54 -06:00
remove predicative form in CompareA UseComparA
This commit is contained in:
@@ -5,13 +5,13 @@ concrete AdjectiveChi of Adjective = CatChi ** open ResChi, Prelude in {
|
|||||||
PositA a = a ** {hasAdA = False} ;
|
PositA a = a ** {hasAdA = False} ;
|
||||||
|
|
||||||
ComparA a np = a ** {
|
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
|
hasAdA = False
|
||||||
|
|
||||||
};
|
};
|
||||||
|
|
||||||
UseComparA a = a ** {
|
UseComparA a = a ** {
|
||||||
s = table { adjPlace => geng_s ++ a.s!adjPlace};
|
s = table { _=> geng_s ++ a.s!Attr};
|
||||||
hasAdA = False
|
hasAdA = False
|
||||||
};
|
};
|
||||||
|
|
||||||
|
|||||||
Reference in New Issue
Block a user