From 856d401337699e70588f79f01351208c2f7239a0 Mon Sep 17 00:00:00 2001 From: bjorn Date: Wed, 29 Oct 2008 13:27:04 +0000 Subject: Changed UncNegX in ExtraEng to take a Temp rather than Tense and Ant arguments. --- next-lib/src/english/ExtraEng.gf | 8 ++++---- 1 file changed, 4 insertions(+), 4 deletions(-) (limited to 'next-lib/src/english/ExtraEng.gf') diff --git a/next-lib/src/english/ExtraEng.gf b/next-lib/src/english/ExtraEng.gf index fa836cda4..99bdd57eb 100644 --- a/next-lib/src/english/ExtraEng.gf +++ b/next-lib/src/english/ExtraEng.gf @@ -35,10 +35,10 @@ concrete ExtraEng of ExtraEngAbs = CatEng ** ComplVPIVV vv vpi = insertObj (\\a => (if_then_Str vv.isAux [] "to") ++ vpi.s ! VPIInf ! a) (predVV vv) ; - UncNegCl t a cl = {s = t.s ++ a.s ++ cl.s ! t.t ! a.a ! neg ! ODir} ; - UncNegQCl t a cl = {s = \\q => t.s ++ a.s ++ cl.s ! t.t ! a.a ! neg !q} ; - UncNegRCl t a cl = { - s = \\r => t.s ++ a.s ++ cl.s ! t.t ! a.a ! neg ! r ; + UncNegCl t cl = {s = t.s ++ cl.s ! t.t ! t.a ! neg ! ODir} ; + UncNegQCl t cl = {s = \\q => t.s ++ cl.s ! t.t ! t.a ! neg !q} ; + UncNegRCl t cl = { + s = \\r => t.s ++ cl.s ! t.t ! t.a ! neg ! r ; c = cl.c } ; UncNegImpSg imp = {s = imp.s ! neg ! ImpF Sg False} ; -- cgit v1.2.3