forked from GitHub/gf-rgl
(Romance) genNum2Aform instead of explicit param
This commit is contained in:
@@ -142,12 +142,12 @@ incomplete concrete ExtendRomanceFunctor of Extend =
|
|||||||
PredAPVP ap vp = ImpersCl (UseComp (CompAP (SentAP ap (EmbedVP vp)))) ; -- DEFAULT it is (good to walk)
|
PredAPVP ap vp = ImpersCl (UseComp (CompAP (SentAP ap (EmbedVP vp)))) ; -- DEFAULT it is (good to walk)
|
||||||
|
|
||||||
AdjAsCN ap = {
|
AdjAsCN ap = {
|
||||||
s =\\n => ap.s ! (genNum2Aform Masc n) ;
|
s = \\n => ap.s ! genNum2Aform Masc n ;
|
||||||
g = Masc
|
g = Masc
|
||||||
} ;
|
} ;
|
||||||
|
|
||||||
AdjAsNP ap = heavyNP {
|
AdjAsNP ap = heavyNP {
|
||||||
s = \\_c => ap.s ! ASg Masc APred ;
|
s = \\_c => ap.s ! genNum2Aform Masc Sg ;
|
||||||
a = Ag Masc Sg P3
|
a = Ag Masc Sg P3
|
||||||
} ;
|
} ;
|
||||||
|
|
||||||
|
|||||||
Reference in New Issue
Block a user