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

(Fin) quality SOFT_BIND with Prelude

Browse Source
This commit is contained in:
Inari Listenmaa
2019-09-05 16:15:36 +02:00
parent 49fdc61eab
commit ea1d7c4601
1 changed files with 1 additions and 1 deletions
Download Patch File Download Diff File Expand all files Collapse all files

2
src/finnish/PhraseFin.gf
View File

@@ -23,7 +23,7 @@ concrete PhraseFin of Phrase = CatFin ** open ResFin, StemFin, (P = Prelude) in
PConjConj conj = {s = conj.s2} ; PConjConj conj = {s = conj.s2} ;
NoVoc = {s = []} ; NoVoc = {s = []} ;
VocNP np = {s = SOFT_BIND ++ "," ++ np.s ! NPSep} ; VocNP np = {s = P.SOFT_BIND ++ "," ++ np.s ! NPSep} ;
oper oper
addNegation : P.Bool -> Str = \isNeg -> case isNeg of {P.True => "ei" ; _ => []} ; addNegation : P.Bool -> Str = \isNeg -> case isNeg of {P.True => "ei" ; _ => []} ;