remove the ResBul.comma and use Prelude.bindComma

This commit is contained in:
Krasimir Angelov
2018-07-02 11:55:13 +02:00
parent d7f9d9e828
commit 6eaee8e4c1
8 changed files with 12 additions and 13 deletions
+3 -3
View File
@@ -70,10 +70,10 @@ concrete SentenceBul of Sentence = CatBul ** open Prelude, ResBul in {
c2 = cl.c2
} ;
ExtAdvS a s = {s = a.s ++ comma ++ s.s} ;
ExtAdvS a s = {s = a.s ++ bindComma ++ s.s} ;
AdvS a s = {s = a.s ++ s.s} ;
SSubjS a s b = {s = a.s ++ comma ++ s.s ++ b.s} ;
SSubjS a s b = {s = a.s ++ bindComma ++ s.s ++ b.s} ;
RelS s r = {s = s.s ++ comma ++ r.s ! {gn=gennum ANeut Sg; p=P3}} ;
RelS s r = {s = s.s ++ bindComma ++ r.s ! {gn=gennum ANeut Sg; p=P3}} ;
}