slight improvement of Fre compile mem and time

lib/resource-1.0/french/DiffFre.gf

@@ -76,14 +76,13 @@ instance DiffFre of DiffRomance = open CommonRomance, PhonoFre, Prelude in {
           CPron a => argPron a.g a.n a.p Acc ;
           _ => []
           } ;
-        pdat = case dat of {
-          CPron a => argPron a.g a.n a.p dative ;
-          _ => []
-          } ;
        in
        case dat of {
-          CPron {p = P3} => <pacc ++ pdat,[]> ;
+          CPron a => let pdat = argPron a.g a.n a.p dative in case a.p of {
-          _ => <pdat ++ pacc, []>
+            P3 => <pacc ++ pdat,[]> ;
+            _  => <pdat ++ pacc,[]>
+            } ;
+          _ => <pacc, []>
           } ;
 
 

lib/resource-1.0/romance/RelativeRomance.gf

@@ -13,11 +13,11 @@ incomplete concrete RelativeRomance of Relative =
       s = \\ag =>
         (mkClause
           (rp.s ! False ! {g = ag.g ; n = ag.n} ! Nom)
-          (
+          (case rp.a of {
-        case rp.a of {
+             RNoAg => ag ;
-          RNoAg => ag ;
+             RAg a => a ** {p = P3}
-          RAg a => a ** {p = P3}
+             }) 
-          }) vp).s
+          vp).s
       } ;
 
     RelSlash rp slash = {