From 97b713520fd6d862a8d5fe9c905f9822eaea383d Mon Sep 17 00:00:00 2001
From: Aarne Ranta <aarne@chalmers.se>
Date: Wed, 20 Mar 2024 09:27:47 +0100
Subject: [PATCH] commas in Ger subord clauses: things remaining to do

---
 src/german/AdverbGer.gf   | 2 +-
 src/german/RelativeGer.gf | 4 ++--
 2 files changed, 3 insertions(+), 3 deletions(-)

diff --git a/src/german/AdverbGer.gf b/src/german/AdverbGer.gf
index 6cf2673df..0c472545e 100644
--- a/src/german/AdverbGer.gf
+++ b/src/german/AdverbGer.gf
@@ -16,7 +16,7 @@ concrete AdverbGer of Adverb = CatGer ** open ResGer, Prelude in {
 
     PositAdAAdj a = {s = a.s ! Posit ! APred} ;
 
-    SubjS subj s = {s = subj.s ++ s.s ! Sub} ;
+    SubjS subj s = {s = {- Predef.BIND ++ "," ++ -} subj.s ++ s.s ! Sub} ; --- comma needed in some uses
 
     AdnCAdv cadv = {s = cadv.s ++ conjThan} ;
 
diff --git a/src/german/RelativeGer.gf b/src/german/RelativeGer.gf
index 48521cbb4..76f03f3c7 100644
--- a/src/german/RelativeGer.gf
+++ b/src/german/RelativeGer.gf
@@ -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
       } ;