From ad613cdd676953dcccf3f51bc9cdfc66e5ac850f Mon Sep 17 00:00:00 2001
From: bjorn <bjorn@bringert.net>
Date: Fri, 22 Feb 2008 17:06:23 +0000
Subject: [PATCH] Include adverb in infVP.

infVP, used by for example AdVVP, did not include the new adv field. This caused adverbs to be suppressed when used in infitive clauses, e.g.:


Union> l UttS (UseCl TPres ASimul PPos (PredVP (UsePN john_PN)(ComplVV want_VV (AdVVP always_AdV (UseV sleep_V)))))
john wants to sleep
---
 lib/resource/english/ResEng.gf | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/lib/resource/english/ResEng.gf b/lib/resource/english/ResEng.gf
index a00eb5aa5..2ca221f9d 100644
--- a/lib/resource/english/ResEng.gf
+++ b/lib/resource/english/ResEng.gf
@@ -317,7 +317,7 @@ resource ResEng = ParamX ** open Prelude in {
 
   infVP : Bool -> VP -> Agr -> Str = \isAux,vp,a ->
     case isAux of {True => [] ; False => "to"} ++ 
-    vp.inf ++ vp.s2 ! a ;
+    (vp.s!Pres!Simul!CPos!ODir!a).adv ++ vp.inf ++ vp.s2 ! a ;
 ---    if_then_Str isAux [] "to" ++ 
 ---    vp.inf ++ vp.s2 ! a ;