From a338c2c60e0eaa8824d5f1ed448dab7a2b5b0155 Mon Sep 17 00:00:00 2001
From: EkaterinaVoloshina <vokat@mail.ru>
Date: Wed, 13 Mar 2024 16:35:58 +0100
Subject: [PATCH] added compounds for LN and PN

---
 src/russian/ParadigmsRus.gf | 11 +++++++++++
 1 file changed, 11 insertions(+)

diff --git a/src/russian/ParadigmsRus.gf b/src/russian/ParadigmsRus.gf
index 8e3603e9c..2717ee0ee 100644
--- a/src/russian/ParadigmsRus.gf
+++ b/src/russian/ParadigmsRus.gf
@@ -371,6 +371,17 @@ oper
          } ;
    } ;
 
+
+   compoundPN : (PN -> Str -> PN)
+       = \pn, adv -> pn ** {
+        s = \\c => pn.s ! c ++ adv
+      } ;
+
+    compoundLN : (LN -> Str -> LN)
+       = \ln, adv -> ln ** {
+        s = \\c => ln.s ! c ++ adv
+      } ;
+
   mkN2 = overload {
     mkN2 : N -> N2
       = \n -> lin N2 (mkFun n nullPrep) ;