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

remove the ResBul.comma and use Prelude.bindComma

Browse Source
This commit is contained in:
Krasimir Angelov
2018-07-02 11:55:13 +02:00
parent d7f9d9e828
commit 6eaee8e4c1
8 changed files with 12 additions and 13 deletions
Download Patch File Download Diff File Expand all files Collapse all files
src/bulgarian/ExtraBul.gf
+2 -2
View File
@@ -62,7 +62,7 @@ concrete ExtraBul of ExtraBulAbs = CatBul **
lin
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 ResBul.comma)!d!t++xs.s!d!t!a} ;
ConsVPI x xs = {s = \\d,t,a=>x.s!a++(linCoordSep bindComma)!d!t++xs.s!d!t!a} ;
MkVPI vp = {s = daComplex Simul Pos vp ! Perf} ;
ConjVPI conj vpi = {
@@ -77,7 +77,7 @@ concrete ExtraBul of ExtraBulAbs = CatBul **
lin
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 ResBul.comma)!d!t++xs.s!d!t!a} ;
ConsVPS x xs = {s = \\d,t,a=>x.s!a++(linCoordSep bindComma)!d!t++xs.s!d!t!a} ;
PredVPS np vps = {s = np.s ! RSubj ++ vps.s ! np.a} ;