From cb53630c604f4bd944bcf93911842e808c811be1 Mon Sep 17 00:00:00 2001
From: Krasimir Angelov <kr.angelov@gmail.com>
Date: Thu, 14 Jun 2018 08:11:52 +0200
Subject: [PATCH] fix the lexical aspect for negative imperatives. also
 temporary remove the comma from EmbedS

---
 src/bulgarian/SentenceBul.gf | 17 +++++++++--------
 1 file changed, 9 insertions(+), 8 deletions(-)

diff --git a/src/bulgarian/SentenceBul.gf b/src/bulgarian/SentenceBul.gf
index 8af4a7914..169740481 100644
--- a/src/bulgarian/SentenceBul.gf
+++ b/src/bulgarian/SentenceBul.gf
@@ -16,15 +16,16 @@ concrete SentenceBul of Sentence = CatBul ** open Prelude, ResBul in {
     ImpVP vp = {
       s = \\p,gn => 
         let agr    = {gn = gn ; p = P2} ;
-            verb   = vp.s ! Perf ! VImperative (numGenNum gn) ;
+            verb   : Aspect -> Str
+                   = \asp -> vp.s ! asp ! VImperative (numGenNum gn) ;
             compl  = vp.compl ! agr ;
             clitic = case vp.vtype of {
-	               VNormal    => [] ;
-	               VMedial c  => reflClitics ! c ;
-	               VPhrasal c => personalClitics ! c ! agr.gn ! agr.p
-	             } ;
-        in case p of {Pos => vp.ad.s ++ verb ++ clitic ;
-                      Neg => "νε" ++ vp.ad.s ++ clitic ++ verb} ++ compl ;
+	                   VNormal    => [] ;
+	                   VMedial c  => reflClitics ! c ;
+	                   VPhrasal c => personalClitics ! c ! agr.gn ! agr.p
+	                 } ;
+        in case p of {Pos => vp.ad.s ++ verb Perf ++ clitic ;
+                      Neg => "νε" ++ vp.ad.s ++ clitic ++ verb Imperf} ++ compl ;
     } ;
 
     SlashVP np slash =  {
@@ -50,7 +51,7 @@ concrete SentenceBul of Sentence = CatBul ** open Prelude, ResBul in {
       c2 = slash.c2
     } ;
 
-    EmbedS  s  = {s = \\_ => comma ++ "χε" ++ s.s} ;
+    EmbedS  s  = {s = \\_ => "χε" ++ s.s} ;
     EmbedQS qs = {s = \\_ => qs.s ! QIndir} ;
     EmbedVP vp = {s = \\agr => daComplex Simul Pos vp ! Perf ! agr} ;