From ae0666c18938b33d0169eeb82a015ea4bd226f96 Mon Sep 17 00:00:00 2001
From: aarne <aarne@chalmers.se>
Date: Thu, 22 Nov 2012 15:05:01 +0000
Subject: [PATCH] optimized a parameter in Romance clause formation

---
 lib/src/romance/SentenceRomance.gf | 5 +++--
 1 file changed, 3 insertions(+), 2 deletions(-)

diff --git a/lib/src/romance/SentenceRomance.gf b/lib/src/romance/SentenceRomance.gf
index 18eeb2fb6..9c9a707e8 100644
--- a/lib/src/romance/SentenceRomance.gf
+++ b/lib/src/romance/SentenceRomance.gf
@@ -23,7 +23,8 @@ incomplete concrete SentenceRomance of Sentence =
 ----              <Acc,True> => insertAgr ag v2 ;
 ----              _ => v2
 ----e              }
-          in (mkClausePol np.isNeg (np.s ! Nom).comp np.hasClit np.isPol np.a vp).s ;
+          in (mkClausePol np.isNeg (np.s ! Nom).comp False      np.isPol np.a vp).s ;
+-----     in (mkClausePol np.isNeg (np.s ! Nom).comp np.hasClit np.isPol np.a vp).s ;
        c2 = v2.c2
       } ;
 
@@ -40,7 +41,7 @@ incomplete concrete SentenceRomance of Sentence =
     SlashVS np vs slash = 
       {s = \\ag =>
         (mkClausePol np.isNeg
-          (np.s ! Nom).comp np.hasClit np.isPol np.a
+          (np.s ! Nom).comp False np.isPol np.a
           (insertExtrapos (\\b => conjThat ++ slash.s ! ag ! (vs.m ! b))
             (predV vs))
         ).s ;