From aeb4b3b3c140f5c36c128563a525de1b85798b0a Mon Sep 17 00:00:00 2001
From: odanoburu <bcclaro@gmail.com>
Date: Thu, 10 Jan 2019 08:59:59 -0200
Subject: [PATCH] (Por) differ from Romance tense/anteriority in only one case
 - in order to follow Romance more closely, we only avoid using the  
 auxiliary in (RPres,Anter), instead of swapping the perfect and   imperfect
 forms too

---
 src/portuguese/DiffPor.gf | 4 ++--
 1 file changed, 2 insertions(+), 2 deletions(-)

diff --git a/src/portuguese/DiffPor.gf b/src/portuguese/DiffPor.gf
index 1f6082189..dc14eba22 100644
--- a/src/portuguese/DiffPor.gf
+++ b/src/portuguese/DiffPor.gf
@@ -204,7 +204,7 @@ instance DiffPor of DiffRomance - [chooseTA,partAgr,vpAgrSubj,vpAgrClits] = open
       -> (VF => Str) -> (VF => Str)
       -> Number -> Person -> Mood -> Str -> Str * Str ;
     chooseTA t a verb vaux n p m part = case <t,a> of {
-    <RPast,Simul>  => <verb ! VFin VPasse n p, []> ; --# notpresent
+    <RPast,Simul>  => <verb ! VFin (VImperf m) n p, []> ; --# notpresent
     <RPast,Anter>  => <vaux ! VFin (VImperf m) n p, part> ; --# notpresent
     <RFut,Simul>   => <verb ! VFin VFut n p, []> ; --# notpresent
     <RFut,Anter>   => <vaux ! VFin VFut n p, part> ; --# notpresent
@@ -212,7 +212,7 @@ instance DiffPor of DiffRomance - [chooseTA,partAgr,vpAgrSubj,vpAgrClits] = open
     <RCond,Anter>  => <vaux ! VFin VCondit n p, part> ; --# notpresent
     <RPasse,Simul> => <verb ! VFin VPasse n p, []> ; --# notpresent
     <RPasse,Anter> => <vaux ! VFin VPasse n p, part> ; --# notpresent
-    <RPres,Anter>  => <verb ! VFin (VImperf m) n p, []> ; --# notpresent
+    <RPres,Anter>  => <verb ! VFin VPasse n p, []> ; --# notpresent
     <RPres,Simul>  => <verb ! VFin (VPres m) n p, []>
     } ;