revert to using simple strings in SC

This commit is contained in:
krangelov
2019-09-03 20:52:34 +02:00
parent b73c9ede2a
commit 8e70523718
6 changed files with 10 additions and 11 deletions
+1 -1
View File
@@ -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)} ;