(Fin) Add SOFT_BIND before commas

This commit is contained in:
Inari Listenmaa
2019-09-05 16:14:36 +02:00
parent 8b86702491
commit 49fdc61eab
4 changed files with 9 additions and 9 deletions
+1 -1
View File
@@ -23,7 +23,7 @@ concrete PhraseFin of Phrase = CatFin ** open ResFin, StemFin, (P = Prelude) in
PConjConj conj = {s = conj.s2} ;
NoVoc = {s = []} ;
VocNP np = {s = "," ++ np.s ! NPSep} ;
VocNP np = {s = SOFT_BIND ++ "," ++ np.s ! NPSep} ;
oper
addNegation : P.Bool -> Str = \isNeg -> case isNeg of {P.True => "ei" ; _ => []} ;