record extension typs checking fixed

2005-04-25 17:19:32 +00:00
parent 7bfb963a8e
commit 590a0dd50e
8 changed files with 10 additions and 13 deletions
--- a/resource/norwegian/SyntaxNor.gf
+++ b/resource/norwegian/SyntaxNor.gf
@@ -114,8 +114,6 @@ instance SyntaxNor of SyntaxScand = TypesNor **
  progressiveClause : NounPhrase -> VerbPhrase -> Clause = \np,vp ->
    predVerbGroupClause np
     (complVerbVerb 
-      (verbVara **
-       {isAux = False} ----- {s3 = ["ved at"]}
-      )
+      ({s = verbVara.s ; s1 = "ved" ; isAux = False})
      vp) ;
 }