GitHub/gf-core
1
0
Fork 1
mirror of https://github.com/GrammaticalFramework/gf-core.git synced 2026-05-16 14:42:50 -06:00
Code Issues Packages Projects Releases Wiki Activity

a few fixes in DictEng, DictEngBul and ParseEng

Browse Source
This commit is contained in:
kr.angelov
2012-08-29 11:46:58 +00:00
parent fd5220038d
commit 9cf52d1f56
5 changed files with 76 additions and 39 deletions
Download Patch File Download Diff File Expand all files Collapse all files

7
lib/src/english/ParseEng.gf
View File

@@ -71,6 +71,11 @@ lin
infVP v.typ vp a)
(predVc v) ;
SlashVPIV2V v p vpi = insertObjc (\\a => p.s ++ case p.p of {CPos => ""; _ => "not"} ++
v.c3 ++
vpi.s ! VVAux ! a)
(predVc v) ;
PredVPosv np vp = {
s = \\t,a,b,o =>
let
@@ -125,7 +130,7 @@ lin
s = let
be = predAux auxBe ;
ppt = vps.ptp
in \\c => np.s ! c ++ vps.ptp ++ vps.s2 ! np.a ;
in \\c => np.s ! c ++ vps.ad ++ vps.ptp ++ vps.s2 ! np.a ;
a = np.a
} ;