refactoring to make it easier to add new conjuncts

2018-09-09 14:10:16 +02:00
parent 790d4bc04a
commit 285bca2ef5
8 changed files with 60 additions and 62 deletions
@@ -23,7 +23,7 @@ concrete PhraseBul of Phrase = CatBul ** open Prelude, ResBul in {
    UttInterj i = i ;

    NoPConj = {s = []} ;
-    PConjConj conj = {s = conj.s ++ linCoord!conj.conj} ;
+    PConjConj conj = {s = conj.s} ;

    NoVoc = {s = []} ;
    VocNP np = {s = bindComma ++ np.s ! RVoc} ;