updated createSentence/add defaultSentence

2019-11-12 14:48:54 +01:00
parent f46cbfe51e
commit 6864f61e92
6 changed files with 76 additions and 28 deletions
@@ -20,7 +20,7 @@ concrete VerbLat of Verb = CatLat ** open (S=StructuralLat),ResLat,IrregLat,Extr
    ComplVS vs s  = -- insertObj ( dummyNP (S.that_Subj.s ++ s.s ! PreS)) Nom_Prep (predV v) ;
      vs ** {
 	s = \\af,qf => vs.act ! af ;
-	compl = \\ag => combineSentence s ! SPreS ! PreV ! CPostV ! SOV ; -- s.s ! QIndir ;
+	compl = \\ag => defaultSentence s ! SOV ; -- s.s ! QIndir ;
 	adv = [] ;
 	obj = []
      } ;