(Pes) add EmbedPresPart to Extend

This commit is contained in:
Inari Listenmaa
2019-03-14 16:23:57 +01:00
parent 47aa4a969d
commit 3751fc0b37

View File

@@ -3,7 +3,7 @@
concrete ExtendPes of Extend =
CatPes ** ExtendFunctor - [
GenNP, ApposNP, ICompAP
,GerundNP,GerundCN,GerundAdv
,GerundNP,GerundCN,GerundAdv,EmbedPresPart
]
with (Grammar=GrammarPes)
** open Prelude, ResPes in {
@@ -30,4 +30,6 @@ lin
-- : VP -> Adv ; -- publishing the document (prepositionless adverb)
GerundAdv vp = lin Adv {s = showVPH Inf defaultAgr vp} ;
-- : VP -> SC ;
EmbedPresPart vp = lin SC {s = showVPH Inf defaultAgr vp} ;
}