ResEng.mkS to mkClause

2026-05-24 02:12:50 -06:00 · 2005-12-07 21:51:40 +00:00
parent b7cb68eb08
commit 5a9db982dc
5 changed files with 24 additions and 24 deletions
--- a/lib/resource-1.0/english/RelativeEng.gf
+++ b/lib/resource-1.0/english/RelativeEng.gf
@@ -15,7 +15,7 @@ concrete RelativeEng of Relative = CatEng ** open ResEng in {
            RNoAg => ag ;
            RAg a => a
            } ;
-          cl = mkS (rp.s ! Nom) agr vp.s vp.s2
+          cl = mkClause (rp.s ! Nom) agr vp
        in
        cl.s ! t ! ant ! b ! ODir
      } ;