commas in Ger subord clauses: things remaining to do

This commit is contained in:
Aarne Ranta
2024-03-20 09:27:47 +01:00
parent 04e76381dc
commit 97b713520f
2 changed files with 3 additions and 3 deletions

View File

@@ -4,8 +4,8 @@ concrete RelativeGer of Relative = CatGer ** open ResGer, Prelude in {
lin
RelCl cl = {
s = \\m,t,a,b,_ => "derart" ++ conjThat ++ cl.s ! m ! t ! a ! b ! Sub ;
RelCl cl = { --- no comma before derart
s = \\m,t,a,b,_ => "derart" ++ Predef.BIND ++ "," ++ conjThat ++ cl.s ! m ! t ! a ! b ! Sub ;
c = Nom
} ;