removed optStr from IdiomEng

This commit is contained in:
aarne
2008-08-14 14:21:42 +00:00
parent ac6b028b1b
commit 0caebe9092

View File

@@ -11,7 +11,7 @@ concrete IdiomEng of Idiom = CatEng ** open Prelude, ResEng in {
(insertObj (\\_ => np.s ! rs.c) (predAux auxBe))) ;
CleftAdv ad s = mkClause "it" (agrP3 Sg)
(insertObj (\\_ => optStr conjThat ++ s.s)
(insertObj (\\_ => conjThat ++ s.s)
(insertObj (\\_ => ad.s) (predAux auxBe))) ;
ExistNP np =