From f7aed275d3bdac5ae1e48daeb801ed30b4df96bb Mon Sep 17 00:00:00 2001
From: aarne <aarne@cs.chalmers.se>
Date: Wed, 5 Nov 2008 10:22:09 +0000
Subject: distinguished know_VS and know_V2 in Lexicon; patched Italian
 imperatives (not quite finished yet)

---
 next-lib/src/italian/DiffIta.gf | 11 +++++------
 1 file changed, 5 insertions(+), 6 deletions(-)

(limited to 'next-lib/src/italian/DiffIta.gf')

diff --git a/next-lib/src/italian/DiffIta.gf b/next-lib/src/italian/DiffIta.gf
index a54520fa9..d6ab22238 100644
--- a/next-lib/src/italian/DiffIta.gf
+++ b/next-lib/src/italian/DiffIta.gf
@@ -112,12 +112,11 @@ instance DiffIta of DiffRomance = open CommonRomance, PhonoIta, BeschIta, Prelud
         let 
           pe    = case b of {True => P3 ; _ => p} ;
           agr   = aag ** {p = pe} ;
-          clpr  = <[],[],False> ; ----e pronArg agr.n agr.p vp.clAcc vp.clDat ;
-----e          verb  = case <aag.n, pol,pe> of {
-----e            <Sg,Neg,P2> => (vp.s ! VPInfinit Simul clpr.p3).inf ! aag ;
-----e            _ => (vp.s ! VPImperat).fin ! agr
-----e            } ;
-          verb  = (vp.s ! VPImperat).fin ! agr ; ----e
+          clpr  = <vp.clit1 ++ vp.clit2,[],False> ; ----e pronArg agr.n agr.p vp.clAcc vp.clDat ;
+          verb  = case <aag.n, pol,pe> of {
+            <Sg,Neg,P2> => (vp.s ! VPInfinit Simul clpr.p3).inf ! aag ;
+            _ => (vp.s ! VPImperat).fin ! agr
+            } ;
           neg   = vp.neg ! pol ;
           compl = neg.p2 ++ clpr.p2 ++ vp.comp ! agr ++ vp.ext ! pol
         in
-- 
cgit v1.2.3