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

fix a warning in ExtraBul.gf

Browse Source
This commit is contained in:
kr.angelov
2014-12-05 12:47:56 +00:00
parent 4810860afc
commit f8324ee49c
1 changed files with 2 additions and 2 deletions
Download Patch File Download Diff File Expand all files Collapse all files

4
lib/src/bulgarian/ExtraBul.gf
View File

@@ -76,7 +76,7 @@ concrete ExtraBul of ExtraBulAbs = CatBul **
lin lin
BaseVPI x y = {s = \\d,t,a=>x.s!a++linCoord!t++y.s!a} ; BaseVPI x y = {s = \\d,t,a=>x.s!a++linCoord!t++y.s!a} ;
ConsVPI x xs = {s = \\d,t,a=>x.s!a++(linCoordSep comma)!d!t++xs.s!d!t!a} ; ConsVPI x xs = {s = \\d,t,a=>x.s!a++(linCoordSep ResBul.comma)!d!t++xs.s!d!t!a} ;
MkVPI vp = {s = daComplex Simul Pos vp ! Perf} ; MkVPI vp = {s = daComplex Simul Pos vp ! Perf} ;
ConjVPI conj vpi = { ConjVPI conj vpi = {
@@ -91,7 +91,7 @@ concrete ExtraBul of ExtraBulAbs = CatBul **
lin lin
BaseVPS x y = {s = \\d,t,a=>x.s!a++linCoord!t++y.s!a} ; BaseVPS x y = {s = \\d,t,a=>x.s!a++linCoord!t++y.s!a} ;
ConsVPS x xs = {s = \\d,t,a=>x.s!a++(linCoordSep comma)!d!t++xs.s!d!t!a} ; ConsVPS x xs = {s = \\d,t,a=>x.s!a++(linCoordSep ResBul.comma)!d!t++xs.s!d!t!a} ;
PredVPS np vps = {s = np.s ! RSubj ++ vps.s ! np.a} ; PredVPS np vps = {s = np.s ! RSubj ++ vps.s ! np.a} ;