From c675de3457387ba7159daea5f71db280b3bd7b29 Mon Sep 17 00:00:00 2001
From: Roman Suzi <roman.suzi@talentadore.com>
Date: Thu, 14 May 2020 21:54:28 +0300
Subject: [PATCH] Fix can (moch)

---
 src/russian/MorphoRus.gf | 10 +++++++++-
 1 file changed, 9 insertions(+), 1 deletion(-)

diff --git a/src/russian/MorphoRus.gf b/src/russian/MorphoRus.gf
index c11ac457..f56c8ed1 100644
--- a/src/russian/MorphoRus.gf
+++ b/src/russian/MorphoRus.gf
@@ -1228,6 +1228,14 @@ oper presentConj1Moch: Str -> Str -> Str -> PresentVerb = \del, sgP1End, altRoot
     PRF GPl P3 => del+ sgP1End + "т"
   };
 
+oper pastConjMoch: Str -> PastVerb = \del ->
+  table {
+    PSF  (GSg Masc) => del ;
+    PSF  (GSg Fem)  => del +"ла" ;
+    PSF  (GSg Neut)  => del+"ло" ;
+    PSF  GPl => del+ "ли"
+  };
+
 -- "PastVerb" takes care of the past tense conjugation.
 
 param PastVF = PSF GenNum ;
@@ -1285,7 +1293,7 @@ oper verbDeclMoch: Aspect -> Conjugation -> Str -> Str -> Str -> Str ->Str -> St
        let patt = case a of {
 	            Perfective   => mkVerbPerfective;
 		    Imperfective => mkVerbImperfective } in
-        patt inf imperSgP2 (presentConj1Moch del sgP1End altRoot) (pastConj sgMascPast);
+        patt inf imperSgP2 (presentConj1Moch del sgP1End altRoot) (pastConjMoch sgMascPast);
 
 oper add_sya : Voice -> Str -> Str = \v,x ->
        case v of {