(Ara) Add relative clauses

2018-11-07 16:26:52 +01:00
parent bf28bf1e56
commit f4cec11f72
5 changed files with 75 additions and 36 deletions
@@ -129,6 +129,6 @@ concrete SentenceAra of Sentence = CatAra ** open
         }
      };

--    UseRCl t a p cl = {s = \\r => t.s ++ a.s ++ p.s ++ cl.s ! t.t ! a.a ! p.p ! r} ;
+    UseRCl t p cl = {s = \\agr,c => t.s ++ p.s ++ cl.s ! t.t ! p.p ! agr ! c} ;

 }