mirror of
https://github.com/GrammaticalFramework/gf-rgl.git
synced 2026-05-27 17:08:54 -06:00
(Pes) add EmbedPresPart to Extend
This commit is contained in:
@@ -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} ;
|
||||
}
|
||||
|
||||
Reference in New Issue
Block a user