proper parameters in Chi IDet

2013-10-08 19:14:56 +00:00
parent 8de2c22bfb
commit 00d2574241
7 changed files with 22 additions and 6 deletions
@@ -17,6 +17,7 @@ concrete PhraseChi of Phrase = CatChi ** open Prelude, ResChi in {
    UttCard x = x ;
    UttVP vp = ss (infVP vp) ;
    UttAdv adv = adv ;
+    UttInterj i = i ;

    NoPConj = {s = []} ;
    PConjConj conj = ss (conj.s ! CSent).s2 ;