msyds/gf-rgl
1
0
Fork 0
forked from GitHub/gf-rgl
Code Pull Requests Activity

fix in tc

Browse Source
This commit is contained in:
aarne
2005-09-13 21:05:32 +00:00
parent c055b0f827
commit 2acf43b64b
1 changed files with 4 additions and 1 deletions
Download Patch File Download Diff File Expand all files Collapse all files

5
resource/finnish/SyntaxFin.gf
View File

@@ -739,7 +739,10 @@ oper
-} -}
complCase : Bool -> ComplCase -> SVIForm -> NPForm = \b,c,v -> case c of { complCase : Bool -> ComplCase -> SVIForm -> NPForm = \b,c,v -> case c of {
CCase k => NPCase k ; CCase k => case <k,b> of {
<Nom,False> => NPCase Part ;
_ => NPCase k
} ;
CAcc => case b of { CAcc => case b of {
True => case v of { True => case v of {
SCl _ => NPAccGen ; SCl _ => NPAccGen ;