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

merging recent changes in Finnish

Browse Source
This commit is contained in:
aarne
2008-03-17 12:46:53 +00:00
parent bae424218f
commit ca7bcf91ca
1 changed files with 2 additions and 0 deletions
Download Patch File Download Diff File Expand all files Collapse all files

2
src/GF/Devel/GrammarToGFCC.hs
View File

@@ -418,6 +418,7 @@ term2term cgr env@(labels,untyps,typs) tr = case tr of
T (TTyped ty) cs -> t2t $ V ty $ map snd cs ---- should be elim'ed in tc T (TTyped ty) cs -> t2t $ V ty $ map snd cs ---- should be elim'ed in tc
V ty ts -> mkCurry $ V ty [t2t t | t <- ts] V ty ts -> mkCurry $ V ty [t2t t | t <- ts]
S t p -> mkCurrySel (t2t t) (t2t p) S t p -> mkCurrySel (t2t t) (t2t p)
_ -> GM.composSafeOp t2t tr _ -> GM.composSafeOp t2t tr
where where
t2t = term2term cgr env t2t = term2term cgr env
@@ -523,6 +524,7 @@ mkLab k = LIdent (("_" ++ show k))
unlock = filter notlock where unlock = filter notlock where
notlock (l,(_, t)) = case t of --- need not look at l notlock (l,(_, t)) = case t of --- need not look at l
R [] -> False R [] -> False
RecType [] -> False
_ -> True _ -> True
unlockTyp = filter notlock unlockTyp = filter notlock