finished Idiom implementations

2006-02-21 13:33:10 +00:00
parent 4fa1d2e03e
commit dc16e3dd1f
4 changed files with 90 additions and 6 deletions
--- a/resource-1.0/romance/RelativeRomance.gf
+++ b/resource-1.0/romance/RelativeRomance.gf
@@ -16,7 +16,7 @@ incomplete concrete RelativeRomance of Relative =
            RNoAg => ag ;
            RAg a => a ** {p = P3}
            } ;
-          cl = mkClause (rp.s ! False ! ag ! Nom) agr vp
+          cl = mkClause (rp.s ! False ! {g = ag.g ; n = ag.n} ! Nom) agr vp
        in
        cl.s ! t ! ant ! b ! m
      } ;