diff options
Diffstat (limited to 'next-lib/src/english/AdjectiveEng.gf')
| -rw-r--r-- | next-lib/src/english/AdjectiveEng.gf | 4 |
1 files changed, 4 insertions, 0 deletions
diff --git a/next-lib/src/english/AdjectiveEng.gf b/next-lib/src/english/AdjectiveEng.gf index 2306f5d9c..a060860dd 100644 --- a/next-lib/src/english/AdjectiveEng.gf +++ b/next-lib/src/english/AdjectiveEng.gf @@ -20,6 +20,10 @@ concrete AdjectiveEng of Adjective = CatEng ** open ResEng, Prelude in { isPre = True } ; + CAdvAP ad ap np = { + s = \\a => ad.s ++ ap.s ! a ++ ad.p ++ np.s ! Nom ; + isPre = False + } ; ComplA2 a np = { s = \\_ => a.s ! AAdj Posit ++ a.c2 ++ np.s ! Acc ; |