From 8b2bf533a4b4434cb0a790bd045533d47a64e0b5 Mon Sep 17 00:00:00 2001
From: aarne <aarne@chalmers.se>
Date: Tue, 22 Jun 2010 10:43:29 +0000
Subject: [PATCH] polite imperative in Fre

---
 src/french/DiffFre.gf | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/src/french/DiffFre.gf b/src/french/DiffFre.gf
index bc90db5d3..2deee816b 100644
--- a/src/french/DiffFre.gf
+++ b/src/french/DiffFre.gf
@@ -123,7 +123,7 @@ instance DiffFre of DiffRomance = open CommonRomance, PhonoFre, Prelude in {
         let 
           agr   = Ag g n p ;
           num   = if_then_else Number b Pl n ;
-          verb  = vp.s.s ! vImper n p ;
+          verb  = vp.s.s ! vImper num p ;
           neg   = vp.neg ! pol ;
           clpr  =  <vp.clit1 ++ vp.clit2, False> ;  ---- TODO: True if clit
           compl = vp.comp ! agr ++ vp.ext ! pol