msyds/gf-rgl
1
0
Fork 0
forked from GitHub/gf-rgl
Code Pull Requests Activity

(Som) Remove unnecessary BIND in predVP

Browse Source
This commit is contained in:
Inari Listenmaa
2019-08-13 15:46:06 +02:00
parent dfa2d222fa
commit 4d3620ff3c
1 changed files with 2 additions and 2 deletions
Download Patch File Download Diff File Expand all files Collapse all files

4
src/somali/ResSom.gf
View File

@@ -795,8 +795,8 @@ oper
subjpron : Str = if_then_Str np.isPron (subj.s ! Nom) np.empty ; subjpron : Str = if_then_Str np.isPron (subj.s ! Nom) np.empty ;
obj : {p1,p2 : Str} = obj : {p1,p2 : Str} =
let o : {p1,p2 : Str} = vp.comp ! subj.a ; let o : {p1,p2 : Str} = vp.comp ! subj.a ;
bind : Str = case <isPassive vp,vp.obj2.a, vp.c2, vp.pred> of { bind : Str = case <isPassive vp, vp.obj2.a, vp.c2> of {
<False,P3_Prep,Single NoPrep,NoPred> => [] ; <False,P3_Prep,Single NoPrep> => [] ;
_ => BIND } ; _ => BIND } ;
in case <cltyp,p> of { in case <cltyp,p> of {
<Statement,Neg> => {p2 = [] ; p1 = o.p1 ++ o.p2 ++ bind} ; <Statement,Neg> => {p2 = [] ; p1 = o.p1 ++ o.p2 ++ bind} ;