add correct negation for AP

This commit is contained in:
Meowyam
2024-01-24 13:56:28 +08:00
parent 2ec3bdc80e
commit 12bc4ccdf5
2 changed files with 6 additions and 3 deletions

View File

@@ -292,8 +292,11 @@ oper
useV : Verb -> VerbPhrase = \v -> v ** {
s = \\vf,pol => verbneg pol ++ v.s ! vf
} ;
useComp : Str -> VerbPhrase = \s -> {
s = \\vf,pol => verbneg pol ++ s ;
} ;
useCompN : Str -> VerbPhrase = \s -> {
s = \\vf,pol => nounneg pol ++ s ;
} ;