added linrefs for A and A2

2021-04-27 10:03:42 +02:00
parent 632d4e2ff1
commit 85282418a7
1 changed files with 5 additions and 0 deletions
--- a/src/polish/CatPol.gf
+++ b/src/polish/CatPol.gf
@@ -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 ;
+
 };