revert to using simple strings in SC

2019-09-03 20:52:34 +02:00
parent b73c9ede2a
commit 8e70523718
6 changed files with 10 additions and 11 deletions
@@ -91,7 +91,7 @@ concrete ExtraEng of ExtraEngAbs = CatEng **
      isPre = vp.isSimple                 -- depends on whether there are complements
      } ;

-    EmbedPresPart vp = {s = \\a => infVP VVPresPart vp False Simul CPos a} ; --- agr
+    EmbedPresPart vp = {s = infVP VVPresPart vp False Simul CPos (agrP3 Sg)} ; --- agr

    UttVPShort vp = {s = infVP VVAux vp False Simul CPos (agrP3 Sg)} ;