added linrefs for A and A2

This commit is contained in:
krangelov
2021-04-27 10:03:42 +02:00
parent 632d4e2ff1
commit 85282418a7

View File

@@ -122,5 +122,10 @@ concrete CatPol of Cat = CommonX - [CAdv] ** open ResPol, Prelude, (R = ParamX)
PN = NounPhrase;
CAdv = {s,p,sn,pn : Str} ;
linref
A = \a -> a.pos.s1 ;
A2 = \a -> a.pos.s1 ++ a.c.s ;
};