Fix punctuation to use SOFT_BIND and BIND in the whole RGL

This commit is contained in:
Inari Listenmaa
2017-06-30 15:28:27 +02:00
parent f79e27c688
commit a49ce31f8d
26 changed files with 57 additions and 95 deletions

View File

@@ -1,10 +1,10 @@
concrete TextMon of Text = CatMon ** {
concrete TextMon of Text = CatMon ** open Prelude in {
flags coding=utf8 ;
lin
TEmpty = {s = []} ;
TFullStop p t = {s = p.s ++ "." ++ t.s} ;
TQuestMark p t = {s = p.s ++ "?" ++ t.s} ;
TExclMark p t = {s = p.s ++ "!" ++ t.s} ;
TFullStop p t = {s = p.s ++ SOFT_BIND ++ "." ++ t.s} ;
TQuestMark p t = {s = p.s ++ SOFT_BIND ++ "?" ++ t.s} ;
TExclMark p t = {s = p.s ++ SOFT_BIND ++ "!" ++ t.s} ;
}