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 7a04b65fb1
commit a742d54515
26 changed files with 57 additions and 95 deletions

View File

@@ -1,5 +1,5 @@
--# -coding=cp1251
concrete TextBul of Text = CatBul ** {
concrete TextBul of Text = CatBul ** open Prelude in {
flags coding=cp1251 ;
@@ -7,8 +7,8 @@ concrete TextBul of Text = CatBul ** {
lin
TEmpty = {s = []} ;
TFullStop x xs = {s = x.s ++ "." ++ xs.s} ;
TQuestMark x xs = {s = x.s ++ "?" ++ xs.s} ;
TExclMark x xs = {s = x.s ++ "!" ++ xs.s} ;
TFullStop x xs = {s = x.s ++ SOFT_BIND ++ "." ++ xs.s} ;
TQuestMark x xs = {s = x.s ++ SOFT_BIND ++ "?" ++ xs.s} ;
TExclMark x xs = {s = x.s ++ SOFT_BIND ++ "!" ++ xs.s} ;
}