(Pes) Support relative pronoun contraction

2019-03-18 14:53:56 +01:00
parent b527d83bde
commit cfbb22239c
8 changed files with 53 additions and 51 deletions
@@ -11,7 +11,7 @@ lin
  CleftNP np rs =
 	 let cl = mkSClause (np2str np) (np.a) (predV beVerb);
 	  in
-	   {s = \\t,p,o =>  cl.s ! t ! p ! o ++ rs.s ! np.a };
+	   {s = \\t,p,o =>  cl.s ! t ! p ! o ++ rs2str Ke np.a rs};

  CleftAdv ad ss = { s = \\t,b,o => ad.s ++ ss.s ! Indic};