One CAdv added

This commit is contained in:
Roman Suzi
2020-08-16 18:00:25 +03:00
parent 36b0fb1e69
commit e0380cfa62
5 changed files with 17 additions and 1 deletions
+3 -1
View File
@@ -1,7 +1,7 @@
-- Seems like this is deprecated - need to use ExtendRus instead
concrete ExtraRus of ExtraRusAbs = CatRus **
open ResRus, MorphoRus, (P=ParadigmsRus), Prelude, NounRus in {
open ResRus, MorphoRus, (P=ParadigmsRus), (X = ConstructX), Prelude, NounRus in {
flags optimize=all ; coding=utf8 ;
lin
obj_no_Prep = {s="" ; c=Acc ; neggen=True ; hasPrep=False} ;
@@ -99,6 +99,8 @@ lin
have_not_V3 = P.mkV3 net_V obj_neg_Prep u_Prep;
be_V3 = P.mkV3 be_ell_V nom_Prep dat_Prep;
rather_CAdv = X.mkCAdv "скорее" "чем" ;
-- : A -> A -> A ;
CompoundA a1 a2 = mkCompoundA a1 "-" a2 ;