finished Idiom implementations

2026-05-25 02:38:55 -06:00 · 2006-02-21 13:33:10 +00:00
parent 0365c6f346
commit b26060262a
4 changed files with 90 additions and 6 deletions
--- a/lib/resource-1.0/romance/RelativeRomance.gf
+++ b/lib/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
      } ;