middle polarity for French in Romance (for "personne ne dort")

lib/src/spanish/CatSpa.gf

@@ -1,5 +1,5 @@
 --# -path=.:../romance:../abstract:../common:prelude
 
 concrete CatSpa of Cat = CommonX - 
-  [SC,Temp,TTAnt,Tense,TPres,TPast,TFut,TCond] ** CatRomance with
+  [SC,Temp,TTAnt,Tense,TPres,TPast,TFut,TCond,Pol] ** CatRomance with
   (ResRomance = ResSpa) ;

lib/src/spanish/DiffSpa.gf

@@ -107,9 +107,9 @@ instance DiffSpa of DiffRomance = open CommonRomance, PhonoSpa, BeschSpa, Prelud
         in
         neg.p1 ++ verb ++ bindIf clpr.p3 ++ clpr.p1 ++ compl ;
 
-    negation : Polarity => (Str * Str) = table {
-      Pos => <[],[]> ;
-      Neg => <"no",[]>
+    negation : RPolarity => (Str * Str) = table {
+      RPos => <[],[]> ;
+      RNeg _ => <"no",[]>
       } ;
 
     conjThan = "que" ;

lib/src/spanish/GrammarSpa.gf

@@ -11,7 +11,7 @@ concrete GrammarSpa of Grammar =
   RelativeSpa,
   ConjunctionSpa,
   PhraseSpa,
-  TextSpa - [SC,Temp,Tense],      -- special punctuation
+  TextSpa - [SC,Temp,Tense,Pol,PPos,PNeg],      -- special punctuation
   IdiomSpa,
   StructuralSpa,
   TenseSpa

lib/src/spanish/IdiomSpa.gf

@@ -32,14 +32,14 @@ concrete IdiomSpa of Idiom = CatSpa **
         (\\agr => 
            let 
              clpr = <vp.clit1,vp.clit2> ; ----e pronArg agr.n agr.p vp.clAcc vp.clDat ;
-             obj  = clpr.p2 ++ vp.comp ! agr ++ vp.ext ! Pos ---- pol
+             obj  = clpr.p2 ++ vp.comp ! agr ++ vp.ext ! RPos ---- pol
            in
            vp.s.s ! VGer ++ clpr.p1 ++ obj
         )
         (predV (verboV (estar_2 "estar"))) ;
 
     ImpPl1 vp = {s =
-      mkImperative False P1 vp ! Pos ! Masc ! Pl ; --- fem
+      mkImperative False P1 vp ! RPos ! Masc ! Pl ; --- fem
       } ;
 
 }

lib/src/spanish/TenseSpa.gf

@@ -1,3 +1,3 @@
-concrete TenseSpa of Tense = CatSpa, TenseX [Ant,Pol,AAnter,ASimul,PNeg,PPos] ** 
+concrete TenseSpa of Tense = CatSpa, TenseX [Ant,AAnter,ASimul] ** 
   TenseRomance with
     (ResRomance = ResSpa) ;