comparative adverbs generalized to cover more of Attempto

1 files changed, 3 insertions, 4 deletions

diff --git a/next-lib/src/english/AdverbEng.gf b/next-lib/src/english/AdverbEng.gf
index ec7d46321..178f85e4c 100644
--- a/next-lib/src/english/AdverbEng.gf
+++ b/next-lib/src/english/AdverbEng.gf
@@ -3,10 +3,10 @@ concrete AdverbEng of Adverb = CatEng ** open ResEng, Prelude in {
   lin
     PositAdvAdj a = {s = a.s ! AAdv} ;
     ComparAdvAdj cadv a np = {
-      s = cadv.s ++ a.s ! AAdv ++ "than" ++ np.s ! Nom
+      s = cadv.s ++ a.s ! AAdv ++ cadv.p ++ np.s ! Nom
       } ;
     ComparAdvAdjS cadv a s = {
-      s = cadv.s ++ a.s ! AAdv ++ "than" ++ s.s
+      s = cadv.s ++ a.s ! AAdv ++ cadv.p ++ s.s
       } ;
 
     PrepNP prep np = {s = prep.s ++ np.s ! Acc} ;
@@ -14,8 +14,7 @@ concrete AdverbEng of Adverb = CatEng ** open ResEng, Prelude in {
     AdAdv = cc2 ;
 
     SubjS = cc2 ;
----b    AdvSC s = s ; --- this rule give stack overflow in ordinary parsing
 
-    AdnCAdv cadv = {s = cadv.s ++ "than"} ;
+    AdnCAdv cadv = {s = cadv.s ++ cadv.p} ;
 
 }