Some refactorings

2020-08-02 22:27:22 +03:00
parent e4f9b85f53
commit 6ad61614b8
5 changed files with 46 additions and 32 deletions
@@ -1,13 +1,12 @@
-concrete TenseRus of Tense = CatRus, TenseX - [PNeg,PPos]
-  ** open ResRus, (P=ParamRus), Prelude in {
+concrete TenseRus of Tense = TenseX - [PNeg,PPos] ** open (R = ParamX) in {
 flags coding=utf8 ; optimize=all ;
 lin
  PNeg = {
    s = "не" ;
-    p = Neg
+    p = R.Neg
    } ;
  PPos = {
    s = [] ;
-    p = Pos
+    p = R.Pos
    } ;
 }