ParseEng: ise CompleBareVS as variant of ComplVS

This commit is contained in:
bjorn
2008-10-31 11:04:22 +00:00
parent 5f59b091a0
commit 88fa05749b

View File

@@ -39,7 +39,7 @@ flags startcat = Phr ; unlexer = text ; lexer = text ;
--
-- Allow both "hope that he runs" and "hope he runs".
lin ComplVS v s = variants { VerbEng.ComplVS v s; insertObj (\\_ => s.s) (predV v) } ;
lin ComplVS v s = variants { VerbEng.ComplVS v s; ComplBareVS v s } ;
-- Allow both contracted and uncontracted negated clauses.
lin UseCl t p cl =