GitHub/gf-core
1
0
Fork 1
mirror of https://github.com/GrammaticalFramework/gf-core.git synced 2026-06-25 02:46:27 -06:00
Code Issues Packages Projects Releases Wiki Activity

Changed UncNegX in ExtraEng to take a Temp rather than Tense and Ant arguments.

Browse Source
This commit is contained in:
bjorn
2008-10-29 13:27:04 +00:00
parent 03fb2af472
commit 856d401337
2 changed files with 7 additions and 7 deletions
Download Patch File Download Diff File Expand all files Collapse all files
next-lib/src/english/ExtraEng.gf
+4 -4
View File
@@ -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} ;