allow for negated CAdv

This commit is contained in:
Krasimir Angelov
2018-07-15 10:55:03 +02:00
parent 4c203cfd81
commit 19e8bab1a4
6 changed files with 16 additions and 15 deletions
+2 -3
View File
@@ -1,4 +1,4 @@
concrete CatEng of Cat = CommonX - [Pol,SC] ** open ResEng, Prelude in {
concrete CatEng of Cat = CommonX - [Pol,SC,CAdv] ** open ResEng, Prelude in {
flags optimize=all_subs ;
@@ -85,10 +85,9 @@ concrete CatEng of Cat = CommonX - [Pol,SC] ** open ResEng, Prelude in {
-- Structural
Conj = {s1,s2 : Str ; n : Number} ;
---b Conj = {s : Str ; n : Number} ;
---b DConj = {s1,s2 : Str ; n : Number} ;
Subj = {s : Str} ;
Prep = {s : Str; isPre : Bool} ;
CAdv = {s : Polarity => Str; p : Str} ;
-- Open lexical classes, e.g. Lexicon