mirror of
https://github.com/GrammaticalFramework/gf-rgl.git
synced 2026-10-28 10:13:17 -06:00
generalize infVP to support negative VP in Romance
This commit is contained in:
1 parent
617cb25f1e
commit
adb1cffb75
10 files changed
+31
-33
No files matched your search
@@ -96,7 +96,7 @@ concrete ExtendSpa of Extend = CatSpa ** ExtendRomanceFunctor -
|
||||
CompVP ant p vp = let
|
||||
neg = negation ! p.p
|
||||
in {
|
||||
s = \\agr => ant.s ++ p.s ++ "de" ++ neg.p1 ++ infVP vp agr ;
|
||||
s = \\agr => ant.s ++ p.s ++ "de" ++ neg.p1 ++ infVP vp RPos agr ;
|
||||
cop = serCopula
|
||||
} ;
|
||||
|
||||
|
||||
Reference in new issue
Block a user