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

added comma to Fin.RelCN

Browse Source
This commit is contained in:
Aarne Ranta
2018-04-26 16:03:34 +02:00
parent db1ecda1f6
commit 0a1460ee85
1 changed files with 2 additions and 2 deletions
Download Patch File Download Diff File Expand all files Collapse all files

4
src/finnish/NounFin.gf
View File

@@ -218,11 +218,11 @@ concrete NounFin of Noun = CatFin ** open ResFin, MorphoFin, StemFin, Prelude in
s = \\nf => ap.s ! True ! (n2nform nf) ++ cn.s ! nf ; s = \\nf => ap.s ! True ! (n2nform nf) ++ cn.s ! nf ;
h = cn.h } ; h = cn.h } ;
RelCN cn rs = {s = \\nf => cn.s ! nf ++ rs.s ! agrP3 (numN nf) ; RelCN cn rs = {s = \\nf => cn.s ! nf ++ BIND ++ "," ++ rs.s ! agrP3 (numN nf) ;
h = cn.h } ; h = cn.h } ;
RelNP np rs = { RelNP np rs = {
s = \\c => np.s ! c ++ "," ++ rs.s ! np.a ; s = \\c => np.s ! c ++ BIND ++ "," ++ rs.s ! np.a ;
a = np.a ; a = np.a ;
isPron = np.isPron ; ---- correct ? isPron = np.isPron ; ---- correct ?
isNeg = np.isNeg isNeg = np.isNeg