optimized a parameter in Romance clause formation

This commit is contained in:
aarne
2012-11-22 15:05:01 +00:00
parent 8b813be742
commit ae0666c189

View File

@@ -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 ;