mirror of
https://github.com/GrammaticalFramework/gf-rgl.git
synced 2026-05-27 08:58:55 -06:00
add SlashV2V
This commit is contained in:
@@ -64,7 +64,6 @@ lin
|
||||
} ;
|
||||
|
||||
|
||||
|
||||
SlashV2A v2 adj = useV {
|
||||
s = \\vf => v2.s ! vf;
|
||||
} ** {
|
||||
@@ -72,6 +71,15 @@ lin
|
||||
adjCompl = adj.s
|
||||
} ;
|
||||
|
||||
-- : V2V -> VP -> VPSlash ; -- beg (her) to go
|
||||
SlashV2V v2 vp = vp ** useV {
|
||||
s = \\vf => v2.s ! vf ++ (linVP vp);
|
||||
} ** {
|
||||
c2 = v2.c2;
|
||||
adjCompl = [] ;
|
||||
} ;
|
||||
|
||||
|
||||
-- : V2S -> S -> VPSlash ; -- answer (to him) that it is good
|
||||
-- SlashV2S v2 s = useV {
|
||||
-- s = \\vf => v2.s ! vf;
|
||||
@@ -80,9 +88,6 @@ lin
|
||||
-- sCompl = s.s
|
||||
-- } ;
|
||||
|
||||
-- : V2V -> VP -> VPSlash ; -- beg (her) to go
|
||||
-- SlashV2V v2v vp = ;
|
||||
|
||||
|
||||
{-
|
||||
-- : V2S -> S -> VPSlash ; -- answer (to him) that it is good
|
||||
|
||||
Reference in New Issue
Block a user