mirror of
https://github.com/GrammaticalFramework/gf-core.git
synced 2026-05-06 01:32:50 -06:00
verb negation and auxiliary fixes in Tha
This commit is contained in:
@@ -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 ; _ => []})
|
||||
} ;
|
||||
|
||||
|
||||
Reference in New Issue
Block a user