(Ara) Add relative clauses

This commit is contained in:
Inari Listenmaa
2018-11-07 16:26:52 +01:00
parent bf28bf1e56
commit f4cec11f72
5 changed files with 75 additions and 36 deletions
+1 -1
View File
@@ -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} ;
}