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
+4 -4
View File
@@ -1,11 +1,11 @@
concrete TextGre of Text = CatGre ** {
concrete TextGre of Text = CatGre ** open Prelude in {
flags coding=utf8 ;
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} ;
}