(May) make linrefs into opers in ResMay

2023-02-24 12:46:59 +08:00
parent 87b6bf9f0a
commit 1ad71e10b1
2 changed files with 10 additions and 4 deletions
@@ -122,10 +122,10 @@ concrete CatMay of Cat = CommonX - [IAdv] ** open ResMay, Prelude in {
    PN = ResMay.PNoun ;

    linref
-        CN = \cn -> cn.s ! NF Sg Bare ++ cn.heavyMod;
-        ClSlash = \cl -> cl.subj ++ cl.pred ! Root ! Pos ++ cl.c2.s;
-        RCl = \cl -> cl.subj ++ cl.pred ! P1 ! Pos;
-        Cl = \cl -> cl.subj ++ cl.pred ! Active ! Pos;
+        CN = linCN ;
+        ClSlash = linClSlash ;
+        RCl = linRCl ;
+        Cl = linCl ;
        Det = linDet ;
 }