fix ComparAdvAdj

2026-06-30 11:08:35 -06:00 · 2020-08-09 17:50:29 +03:00
parent 13ee63e25d
commit 84361d473d
3 changed files with 24 additions and 1 deletions
@@ -12,7 +12,7 @@ lin

  -- : CAdv -> A -> NP -> Adv ;   -- more warmly than John - более тепло чем Иван
  ComparAdvAdj cadv a np = {
-    s = cadv.s ++ a.sn ++ comma ++ cadv.p ++ np.s ! Nom
+    s = cadv.s ++ a.sn ++ embedInCommas (cadv.p ++ np.s ! Nom)
    } ;
  -- : CAdv -> A -> S -> Adv ;   -- more warmly than he runs - более тепло чем он бежал
  ComparAdvAdjS cadv a s = {