(Est) Replace all {lock_C = <>} with lin C {...}

2022-04-14 20:02:44 +08:00
parent 76f23214c1
commit 4e8ff8e7fd
8 changed files with 91 additions and 117 deletions
@@ -178,13 +178,8 @@ concrete NounEst of Noun = CatEst ** open ResEst, HjkEst, MorphoEst, Prelude in

    UseN2 n = n ;

-    Use2N3 f = lin N2 {
-      s = f.s ;
-      c2 = f.c2 ;
-      isPre = f.isPre
-      } ;
-    Use3N3 f = lin N2 {
-      s = f.s ;
+    Use2N3 f = f ;
+    Use3N3 f = f ** {
      c2 = f.c3 ;
      isPre = f.isPre2
      } ;