From 5b9f3ad75d55f7481db6c0bec5e7cd19359eb0f6 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

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

diff --git a/lib/src/french/DiffFre.gf b/lib/src/french/DiffFre.gf
index bc90db5d3..2deee816b 100644
--- a/lib/src/french/DiffFre.gf
+++ b/lib/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