From 3ff57f6184963acde7f3cc2dcf0638c0e819929a Mon Sep 17 00:00:00 2001 From: aarne Date: Sat, 15 Nov 2008 11:19:10 +0000 Subject: comparative adverbs generalized to cover more of Attempto --- next-lib/src/english/AdverbEng.gf | 7 +++---- 1 file changed, 3 insertions(+), 4 deletions(-) (limited to 'next-lib/src/english/AdverbEng.gf') 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} ; } -- cgit v1.2.3