Merge Reflexivity and Transitivity (untested)

src/russian/ParadigmsRus.gf

@@ -304,7 +304,7 @@ oper
       = \a1,link,a2 -> lin A (mkCompoundA a1 link a2) ;
     mkA : V -> Voice -> Tense -> A
       = \v,voice,t ->
-        let refl = case v.refl of {Reflexive => "ся" ; _ => ""} in
+        let refl = case v.refltran of {Refl => "ся" ; _ => ""} in
         case <voice,t> of {
           <Pass,Past|Cond> => lin A ( --# notpresent TODO: check
             guessAdjectiveForms (v.ppps + "ый") ** {  --# notpresent
@@ -487,4 +487,4 @@ oper
       Second | SecondA => (Z.sg1StemFromVerb sg1) + "ит" ;
       _ => (Z.sg1StemFromVerb sg1) + "ет"
       } in (guessVerbForms asp Transitive inf sg1 sg3) ** {lock_V=<>} ;
-}
+}