verb negation and auxiliary fixes in Tha

2011-11-29 15:24:59 +00:00
parent 524df2d4ed
commit d9e457f54c
4 changed files with 5 additions and 8 deletions
@@ -14,8 +14,8 @@ concrete IdiomTha of Idiom = CatTha ** open Prelude, ResTha in {

    ExistNP np = {
      s = \\q,p => thbind (case p of {
-        Pos => thbind pen_s np.s ;
-        Neg => thbind may_s chay_s np.s
+        Pos => thbind mii_s np.s ;
+        Neg => thbind may_s mii_s np.s
      }) (case q of {ClQuest => m'ay_s ; _ => []})
    } ;