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,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} ;
}