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

(Ara) Fix the corner case where ReflVP is called after VPSlashPrep.

Browse Source 
Also fix noPrep to accPrep (the default object case).

Tested with gftest -o, only changes were in combinations of ReflVP and 
VPSlashPrep.
This commit is contained in:
Inari Listenmaa
2019-01-29 17:57:21 +01:00
parent ac5352f852
commit e468b48ded
1 changed files with 3 additions and 1 deletions
Download Patch File Download Diff File Expand all files Collapse all files

4
src/arabic/VerbAra.gf
View File

@@ -111,9 +111,11 @@ concrete VerbAra of Verb = CatAra ** open Prelude, ResAra, ParamX in {
-- : VPSlash -> VP ; -- love himself -- : VPSlash -> VP ; -- love himself
ReflVP vps = vps ** { ReflVP vps = vps ** {
s = \\pgn,vf => vps.s ! pgn ! vf s = \\pgn,vf => vps.s ! pgn ! vf
++ vps.obj.s -- only relevant if the VPSlash has been through VPSlashPrep
++ vps.c2.s ++ bindIf vps.c2.binds ++ vps.c2.s ++ bindIf vps.c2.binds
++ reflPron vps.c2.c pgn ; ++ reflPron vps.c2.c pgn ;
c2 = noPrep c2 = accPrep ;
obj = emptyObj ; -- because old obj was moved in s
} ; } ;
PassV2 = passPredV ; PassV2 = passPredV ;