From 250f7ee82cc96127a552ad5bb9c3c2d310bbd516 Mon Sep 17 00:00:00 2001
From: Krasimir Angelov <kr.angelov@gmail.com>
Date: Sat, 4 Nov 2023 16:45:22 +0100
Subject: [PATCH] a new paradigm for mkLN which adds an adjective

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

diff --git a/src/russian/ParadigmsRus.gf b/src/russian/ParadigmsRus.gf
index 1c014d2c..7197ac50 100644
--- a/src/russian/ParadigmsRus.gf
+++ b/src/russian/ParadigmsRus.gf
@@ -507,6 +507,10 @@ oper
                      g = nf.g ;
                      n = n
                    } ;
+    mkLN : A -> LN -> LN
+      = \a, ln -> ln ** {
+                     s = \\cas => (adjFormsAdjective a).s ! (gennum ln.g ln.n) ! ln.anim ! cas ++ ln.s ! cas
+                  } ;
   } ;
 
 ---------------------