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/german/AdverbGer.gf | 4 ++-- 1 file changed, 2 insertions(+), 2 deletions(-) (limited to 'next-lib/src/german/AdverbGer.gf') diff --git a/next-lib/src/german/AdverbGer.gf b/next-lib/src/german/AdverbGer.gf index 4bac57a98..82ccd6193 100644 --- a/next-lib/src/german/AdverbGer.gf +++ b/next-lib/src/german/AdverbGer.gf @@ -4,10 +4,10 @@ concrete AdverbGer of Adverb = CatGer ** open ResGer, Prelude in { PositAdvAdj a = {s = a.s ! Posit ! APred} ; ComparAdvAdj cadv a np = { - s = cadv.s ++ a.s ! Posit ! APred ++ conjThan ++ np.s ! Nom + s = cadv.s ++ a.s ! Posit ! APred ++ cadv.p ++ np.s ! Nom } ; ComparAdvAdjS cadv a s = { - s = cadv.s ++ a.s ! Posit ! APred ++ conjThan ++ s.s ! Sub + s = cadv.s ++ a.s ! Posit ! APred ++ cadv.p ++ s.s ! Sub } ; PrepNP prep np = {s = appPrep prep np.s} ; -- cgit v1.2.3