use restricted inheritance in Polish

This commit is contained in:
krasimir
2009-10-23 15:00:24 +00:00
parent cfd9894086
commit 4f8e32cb5d
2 changed files with 3 additions and 35 deletions

View File

@@ -2,7 +2,7 @@
-- Adam Slaski, 2009 <adam.slaski@gmail.com>
concrete CatPol of Cat = CommonPol ** open ResPol, Prelude, (R = ParamX) in {
concrete CatPol of Cat = CommonX - [CAdv] ** open ResPol, Prelude, (R = ParamX) in {
flags optimize=all_subs; coding=utf8;
@@ -124,5 +124,7 @@ concrete CatPol of Cat = CommonPol ** open ResPol, Prelude, (R = ParamX) in {
N3 = {s : SubstForm => Str; g : Gender} ** { c, c2 : Complement } ;
PN = NounPhrase;
CAdv = {s,p,sn,pn : Str} ;
};