RelNP and ApposNP should put a final comma after the inserted phrase.

This commit is contained in:
kr.angelov
2013-09-03 08:00:59 +00:00
parent ee7307fbfb
commit b9192ccccf
3 changed files with 3 additions and 2 deletions

View File

@@ -22,7 +22,7 @@ concrete NounEng of Noun = CatEng ** open MorphoEng, ResEng, Prelude in {
} ;
RelNP np rs = {
s = \\c => np.s ! c ++ "," ++ rs.s ! np.a ;
s = \\c => np.s ! c ++ "," ++ rs.s ! np.a ++ finalComma ;
a = np.a
} ;