added field p for particle in romance Verb. This was already assumed in Dictionary, and created many spurious ambiguities when parsing Romance languages in the wide-coverage translation, because p was simply ignored.

lib/src/romance/DiffRomance.gf

@@ -103,7 +103,7 @@ param
   Case = Nom | Acc | CPrep Prepos ; 
 
 oper
-  Verb = {s : VF => Str ; vtyp : VType} ;
+  Verb = {s : VF => Str ; vtyp : VType ; p : Str} ;
 
   VP : Type = {
     s      : Verb ;

lib/src/romance/NounRomance.gf

@@ -1,7 +1,7 @@
 incomplete concrete NounRomance of Noun =
    CatRomance ** open CommonRomance, ResRomance, Prelude in {
 
-  flags optimize=all_subs ;
+  flags optimize=all_subs ; coding = utf8 ;
 
   lin
     DetCN det cn = 

lib/src/romance/ResRomance.gf

@@ -81,7 +81,7 @@ oper
     let
       typ = verb.vtyp ;
     in {
-      s = {s = verb.s ; vtyp = typ} ;
+      s      = verb ;
       agr    = partAgr typ ;
       neg    = negation ;
       clit1  = [] ;
@@ -139,7 +139,7 @@ oper
     } ;
 
   insertRefl : VP -> VP = \vp -> { 
-    s     = {s = vp.s.s ; vtyp = vRefl vp.s.vtyp} ;
+    s     = vp.s ** {vtyp = vRefl vp.s.vtyp} ;
     agr   = VPAgrSubj ;
     clit1 = vp.clit1 ; 
     clit2 = vp.clit2 ; 
@@ -224,7 +224,9 @@ oper
           num = agr.n ;
           per = agr.p ;
 
-          compl = case isPol of {
+          particle = vp.s.p ;
+
+          compl = particle ++ case isPol of {
             True => vp.comp ! {g = gen ; n = Sg ; p = per} ;
             _ => vp.comp ! agr
             } ;
@@ -260,6 +262,7 @@ oper
 
           fin = vps.p1 ;
           inf = vps.p2 ;
+
         in
         case d of {
           DDir =>