slight improvement of Fre compile mem and time

2026-05-22 01:22:51 -06:00 · 2006-03-30 18:35:26 +00:00
parent 97bb101c44
commit 2dd2b1e11e
2 changed files with 10 additions and 11 deletions
--- a/lib/resource-1.0/romance/RelativeRomance.gf
+++ b/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 {
-          RNoAg => ag ;
-          RAg a => a ** {p = P3}
-          }) vp).s
+          (case rp.a of {
+             RNoAg => ag ;
+             RAg a => a ** {p = P3}
+             }) 
+          vp).s
      } ;

    RelSlash rp slash = {