From ef3270ae29501a8b61ab24b2d55e969728195c9f Mon Sep 17 00:00:00 2001 From: Inari Listenmaa Date: Wed, 15 Sep 2021 15:08:39 +0800 Subject: [PATCH] (Romance) Remove traces of Degree in Extend --- src/portuguese/ExtendPor.gf | 2 +- src/romance/ExtendRomanceFunctor.gf | 2 +- src/spanish/ExtendSpa.gf | 2 +- 3 files changed, 3 insertions(+), 3 deletions(-) diff --git a/src/portuguese/ExtendPor.gf b/src/portuguese/ExtendPor.gf index cfba13e64..c91b169ad 100644 --- a/src/portuguese/ExtendPor.gf +++ b/src/portuguese/ExtendPor.gf @@ -75,7 +75,7 @@ concrete ExtendPor of Extend = CatPor ** ExtendRomanceFunctor - CompoundAP noun adj = { s = \\af => case (aform2aagr af) of { - {n = n} => adj.s ! Posit ! (genNum2Aform noun.g n) ++ "de" ++ noun.s ! n + {n = n} => adj.s ! genNum2Aform noun.g n ++ "de" ++ noun.s ! n } ; isPre = adj.isPre ; copTyp = adj.copTyp diff --git a/src/romance/ExtendRomanceFunctor.gf b/src/romance/ExtendRomanceFunctor.gf index 1c74278a3..c2331b539 100644 --- a/src/romance/ExtendRomanceFunctor.gf +++ b/src/romance/ExtendRomanceFunctor.gf @@ -214,7 +214,7 @@ incomplete concrete ExtendRomanceFunctor of Extend = } ; UttAdV av = av ; PositAdVAdj a = { - s = a.s ! Posit ! AA + s = a.s ! AA } ; lin diff --git a/src/spanish/ExtendSpa.gf b/src/spanish/ExtendSpa.gf index 03a350c24..1baf582b3 100644 --- a/src/spanish/ExtendSpa.gf +++ b/src/spanish/ExtendSpa.gf @@ -78,7 +78,7 @@ concrete ExtendSpa of Extend = CatSpa ** ExtendRomanceFunctor - CompoundAP noun adj = { s = \\af => case (aform2aagr af) of { - {n = n} => adj.s ! Posit ! (genNum2Aform noun.g n) ++ "de" ++ noun.s ! n + {n = n} => adj.s ! genNum2Aform noun.g n ++ "de" ++ noun.s ! n } ; isPre = adj.isPre ; copTyp = adj.copTyp