record extension typs checking fixed

This commit is contained in:
aarne
2005-04-25 17:19:32 +00:00
parent 6c9c095c9a
commit e601bc4e43
9 changed files with 31 additions and 33 deletions

View File

@@ -113,9 +113,7 @@ instance SyntaxDan of SyntaxScand = TypesDan **
progressiveClause : NounPhrase -> VerbPhrase -> Clause = \np,vp ->
predVerbGroupClause np
(complVerbVerb
(verbVara **
{isAux = False} ----- {s3 = ["ved at"]}
)
{s = verbVara.s ; s1 = "ved" ; isAux = False}
vp) ;
}