From e3fe64c44957869e62fa466113e66aab56f08b3a Mon Sep 17 00:00:00 2001
From: aarne <aarne@cs.chalmers.se>
Date: Fri, 22 Feb 2008 15:17:50 +0000
Subject: [PATCH] started a directory of grammars testing testgf3 features

---
 resource/english/ResEng.gf | 4 +++-
 1 file changed, 3 insertions(+), 1 deletion(-)

diff --git a/resource/english/ResEng.gf b/resource/english/ResEng.gf
index ae8ee0c4..a00eb5aa 100644
--- a/resource/english/ResEng.gf
+++ b/resource/english/ResEng.gf
@@ -316,8 +316,10 @@ resource ResEng = ParamX ** open Prelude in {
     agrVerb (verb.s ! VPres) (verb.s ! VInf) ;
 
   infVP : Bool -> VP -> Agr -> Str = \isAux,vp,a ->
-    if_then_Str isAux [] "to" ++ 
+    case isAux of {True => [] ; False => "to"} ++ 
     vp.inf ++ vp.s2 ! a ;
+---    if_then_Str isAux [] "to" ++ 
+---    vp.inf ++ vp.s2 ! a ;
 
   agrVerb : Str -> Str -> Agr -> Str = \has,have,agr -> 
     case agr of {