diff options
| author | aarne <aarne@cs.chalmers.se> | 2008-11-15 11:19:10 +0000 |
|---|---|---|
| committer | aarne <aarne@cs.chalmers.se> | 2008-11-15 11:19:10 +0000 |
| commit | 3ff57f6184963acde7f3cc2dcf0638c0e819929a (patch) | |
| tree | e5c975ae99dd3e45f9a4e700658b39d9bf90e68f /next-lib/src/romance/AdjectiveRomance.gf | |
| parent | 6b4f9715e6acb87e05b8229bafd1f41d906e6409 (diff) | |
comparative adverbs generalized to cover more of Attempto
Diffstat (limited to 'next-lib/src/romance/AdjectiveRomance.gf')
| -rw-r--r-- | next-lib/src/romance/AdjectiveRomance.gf | 4 |
1 files changed, 4 insertions, 0 deletions
diff --git a/next-lib/src/romance/AdjectiveRomance.gf b/next-lib/src/romance/AdjectiveRomance.gf index 359e4088a..d24d6dff0 100644 --- a/next-lib/src/romance/AdjectiveRomance.gf +++ b/next-lib/src/romance/AdjectiveRomance.gf @@ -11,6 +11,10 @@ incomplete concrete AdjectiveRomance of Adjective = s = \\af => a.s ! Compar ! af ++ conjThan ++ (np.s ! Nom).ton ; isPre = False } ; + CAdvAP ad ap np = { + s = \\af => ad.s ++ ap.s ! af ++ ad.p ++ (np.s ! Nom).ton ; + isPre = False + } ; UseComparA a = { s = \\af => a.s ! Compar ! af ; isPre = a.isPre |