From 8052652c4ef9276ab98578591d9ef1f0bae5799e Mon Sep 17 00:00:00 2001
From: aarne <aarne@chalmers.se>
Date: Mon, 29 Mar 2010 16:00:04 +0000
Subject: [PATCH] corrected some incorrect inflections in LexiconEng

---
 lib/src/english/LexiconEng.gf   | 8 ++++----
 lib/src/english/ParadigmsEng.gf | 1 +
 2 files changed, 5 insertions(+), 4 deletions(-)

diff --git a/lib/src/english/LexiconEng.gf b/lib/src/english/LexiconEng.gf
index 393ad779b..7bec576b0 100644
--- a/lib/src/english/LexiconEng.gf
+++ b/lib/src/english/LexiconEng.gf
@@ -8,7 +8,7 @@ flags
 
 lin
   airplane_N = regN "airplane" ;
-  answer_V2S = mkV2S (regV "answer") toP ;
+  answer_V2S = mkV2S (mkV "answer" "answered") toP ;
   apartment_N = regN "apartment" ;
   apple_N = regN "apple" ;
   art_N = regN "art" ;
@@ -49,7 +49,7 @@ lin
   church_N = regN "church" ;
   city_N = regN "city" ;
   clean_A = regADeg "clean" ;
-  clever_A = regADeg "clever" ;
+  clever_A = mkA "clever" "cleverer" ;
   close_V2 = dirV2 (regV "close") ;
   coat_N = regN "coat" ;
   cold_A = regADeg "cold" ;
@@ -207,7 +207,7 @@ lin
   wine_N = regN "wine" ;
   win_V2 = dirV2 (irregDuplV "win" "won" "won") ;
   woman_N = mkN feminine (mk2N "woman" "women") ;
-  wonder_VQ = mkVQ (regV "wonder") ;
+  wonder_VQ = mkVQ (mkV "wonder" "wondered") ;
   wood_N = regN "wood" ;
   write_V2 = dirV2 (irregV "write" "wrote" "written") ;
   yellow_A = mkA "yellow" ;
@@ -325,7 +325,7 @@ lin
   swim_V = IrregEng.swim_V ;
   think_V = IrregEng.think_V ;
   turn_V = regV "turn" ;
-  vomit_V = regV "vomit" ;
+  vomit_V = mkV "vomit" "vomited" ;
 
   bite_V2 = dirV2 IrregEng.bite_V ;
   count_V2 = dirV2 (regV "count") ;
diff --git a/lib/src/english/ParadigmsEng.gf b/lib/src/english/ParadigmsEng.gf
index 155a902d4..43bd8bcee 100644
--- a/lib/src/english/ParadigmsEng.gf
+++ b/lib/src/english/ParadigmsEng.gf
@@ -450,6 +450,7 @@ mkSubj : Str -> Subj = \s -> lin Subj {s = s} ;
         _   => duplFinal happy + "e"
         } ;
       happily : Str = case happy of {
+        _ + "ble" => init happy + "y" ;
         _ + "y" => happ + "ily" ;
         _ + "ll" => happy + "y" ;
         _   => happy + "ly"