factored English uncontracted negation to one constant, ExtraEng.UncNeg : Pol

2011-06-02 08:05:31 +00:00
parent 5782bea01d
commit 20966efd85
6 changed files with 63 additions and 37 deletions
--- a/lib/src/english/SentenceEng.gf
+++ b/lib/src/english/SentenceEng.gf
@@ -63,7 +63,8 @@ concrete SentenceEng of Sentence = CatEng ** open Prelude, ResEng in {
    RelS s r = {s = s.s ++ "," ++ r.s ! agrP3 Sg} ;

  oper
-    ctr = contrNeg True ;  -- contracted negations
+    ctr : CPolarity -> CPolarity = \x -> x ;
+---    ctr = contrNeg True ;  -- contracted negations

 }