SC in English needs an agreement

This commit is contained in:
Krasimir Angelov
2018-06-02 22:24:43 +02:00
parent ed08ae83d0
commit cd74a0bc34
7 changed files with 13 additions and 12 deletions
+2 -1
View File
@@ -1,4 +1,4 @@
concrete CatEng of Cat = CommonX - [Pol] ** open ResEng, Prelude in {
concrete CatEng of Cat = CommonX - [Pol,SC] ** open ResEng, Prelude in {
flags optimize=all_subs ;
@@ -49,6 +49,7 @@ concrete CatEng of Cat = CommonX - [Pol] ** open ResEng, Prelude in {
-- Adjective
AP = {s : Agr => Str ; isPre : Bool} ;
SC = {s : Agr => Str} ;
-- Noun