From 2073b4c65e951a9918ea23c17a1efc665bba9c13 Mon Sep 17 00:00:00 2001
From: aarne <aarne@cs.chalmers.se>
Date: Tue, 16 May 2006 08:17:01 +0000
Subject: [PATCH] infVP bug fix in Scand

---
 resource-1.0/scandinavian/CommonScand.gf | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/resource-1.0/scandinavian/CommonScand.gf b/resource-1.0/scandinavian/CommonScand.gf
index 6d51079da..ed3bea5cf 100644
--- a/resource-1.0/scandinavian/CommonScand.gf
+++ b/resource-1.0/scandinavian/CommonScand.gf
@@ -267,7 +267,7 @@ oper
     } ;
 
   infVP : VP -> Agr -> Str = \vp,a -> 
-    (vp.s ! VPInfinit Simul).inf ++ vp.n2 ! a ++ vp.a2 ++ vp.ext ; --- a1
+    vp.a1 ! Pos ++ (vp.s ! VPInfinit Simul).inf ++ vp.n2 ! a ++ vp.a2 ++ vp.ext ; --- a1
 
 
 -- For $Sentence$.