verb negation and auxiliary fixes in Tha

This commit is contained in:
aarne
2011-11-29 15:24:59 +00:00
parent eaaefe73d0
commit 9b6086704f
4 changed files with 5 additions and 8 deletions

View File

@@ -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 ; _ => []})
} ;